can 
‘w) 


a 


4 


| 


© “By 
NEC 


if 


» 


— a ao 
| =>. D> 
Beyond Basic 
6502 Assembly Language Programming for the 
British Broadcasting Corporation Microcomputer 


‘ 


it 





) 
= 





Richard Freeman 


Seis b&b @wepe te wo 
——__ a ae 
ae a 
>] 7 ee — ww 
~ 





BEYOND BASIC 


6502 Assembly Language on the British Broadcasting 
Corporation Microcomputer 


Richard Freeman 


British Broadcasting Corporation 
National Extension College 


BEYOND BASIC 


6502 Assembly Language on the British Broadcasting 
Corporation Microcomputer 


a 


Author’s acknowledgements 


It is a great pleasure to acknowledge the enormous help that lan 
Trackman gave me in the preparation of this book. He painstakingly 
checked through the text and programs, spotting errors and ambi 
guities; he provided profuse suggestions for additional material and for 
re-orderings of the material. Whatever its faults, the book is immensely 
better as a result of Ian Trackman’s help. 


Errors and faults remain. They are my responsibility and I would 
welcome letters, from users of the book, pointing out errors and piviny 
suggestions for improvements. 


© Richard Freeman 1983 
First published 1983 


Published by the British Broadcasting Corporation 
35 Marylebone High Street 
London W1M 4AA 


and 


National Extension College Trust Ltd 
18 Brooklands Avenue 
Cambridge CB2 2HN 


ISBN 0 563 16592 8 (BBC) 
ISBN 0 86082 388 1 (NEC) 


Unit 1 
Unit 2 
Unit 3 
Unit 4 
Unit 5 
Unit 6 
Unit 7 
Unit 8 
Unit 9 


Unit 10 


Contents 


Introduction 

How to use this book 

Number representation 

Addition and subtraction 

Jumps, loops and branches 
Addressing modes 

Multiplication and division 

Lists and tables 

The stack, CALL, USR and masking 
Operating System calls 

Tough stuff 

Round-up 

Appendix 1 BBC Microcomputer character set 
Appendix 2 6502 Instruction set 


Appendix 3 Further reading 


Page 


252 


256 


Introduction 


Aims 

This book has been written for those people who have a good grasp of 
BASIC programming and want to move on to 6502 assembly language 
programming. There are, of course, other books which cover 6502 
programming so any new book needs some justification. In the case of 
this book, it aims to do two things which existing texts do not offer 
beginners. First, it offers a problem-solving approach to assembly 
language i.e. it does not work steadily through the instruction set but 
looks at practical problems which allow each new instruction to be 
introduced naturally. Second, the book was developed on the BBC 
Microcomputer. This means that, for British Broadcasting Corporation 
Micro users, all the programs work as written. They do not leave you to 
find out obscure features about your micro before you can make the 
programs run. However, this book will still be of use to owners of other 
6502-based micros. Once you know something of your micro’s 
operating system calls, memory map and how to use one of the 
assemblers available for it, you should be able to enter programs using 
material from this book. 


What is assembly language? 


Microprocessors 

At the heart of every microcomputer there is a ‘microprocessor’. A 
microprocessor is a silicon chip containing thousands of electronic 
circuits which together provide the computing power that has made 
microcomputers hit the headlines. All the other chips in a micro- 
computer are working in support of the central microprocessor. If you 
are programming in BASIC, you need not be aware of the micro- 
processor’s existence. But when programming in assembly language, 
you are much nearer to it. So near, that you need to know which type of 
microprocessor your computer uses. The BBC Microcomputer has a 
6502A microprocessor — hence the sub-title of this book. 


Machine code 

A microprocessor can only accept instructions in ‘machine code’. A 
program in machine code looks like this (except that the micro- 
processor is sent the numbers in binary form): 


Ag 19 
18 
69 1B 
85 70 
60 


The program would add together the numbers 25 and 27 and store the 
result in the computer’s memory. It’s obviously very different from 
BASIC, particularly because the code appears most unfriendly and 
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difficult to understand. Yet a microcomputer must provide its micro- 
processor with instructions in machine code if the microprocessor is to 
be able to work. On the other hand, because machine code is so 
unfriendly, it is hard to write machine code. The codes appear to be 
arbitrary, bearing no apparent relation to what they do (there is a logic 
to them, but at a level that is not obvious to the human eye). As a resull, 
it is very difficult to program in machine code without making mistakes 
and those mistakes are very hard to detect. Assembly language has been 
developed to overcome this problem. 


Assembly language 

Assembly language is a programming language which allows you to 
enter instructions which are reasonably meaningful but which the 
computer can ‘assemble’ into machine code. The machine code 
program above resulted from entering the following ‘assembly lan 
guage’ program: 


10 DIM 2%50 
20 PZ = 2% 
30 C 

40 LDA #25 
50 CLC 

60 ADC #27 
70 STA &70 
80 RTS 

90 J 


All assemblers work on the same principle and perform the same basic: 
tasks: 


0 translate the assembly language instructions into machine code 
QO place data in the user’s specified memory locations 


O place the machine code program itself in the specified section of 
memory. 


However, although the principles of all assemblers are the same, their 
detailed workings are not. It is for this reason that this course 
concentrates on the BBC BASIC assembler. 


Once the assembly language program has been entered, you ‘assemble’ 
it by typing the command RUN. This tells the assembler (which is a 
computer program) to translate your assembly language program into 
machine code. At that point you can, if you wish, discard the assembly 
language program and just keep the machine code program ~ called the 
‘object program’. 

The BASIC assembler 

There are many 6502-based microcomputers. All use the same machine 
code because the 6502 and 6502A microprocessors only obey 6502 
machine code instructions. But a 6502 microcomputer can have a 
variety of assemblers developed for it and each will have its own 
method of use. In the case of the BBC Micro, the built-in assembler is a 
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‘BASIC assembler’ i.e. you enter the assembly language instructions 
within a BASIC program, indicating which parts are assembly language 
by enclosing them in square brackets, thus: C J. 


How BASIC is different 

BASIC is what is called a ‘high level’ language and assembly languages 
are ‘low level’ languages. In a low level language, you enter instructions 
at or near to the level at which the microprocessor operates. You talk its 
language. 


In a high level language, what you enter may have very little to do with 
the language used by the microprocessor. Instead, you work in a 
language where each instruction (e.g. PRINT or SQR) might require the 
computer to execute a long series of machine code instructions. In the 
case of BASIC, the microcomputer executes the instructions by means 
of a ‘BASIC interpreter’ — a program in the computer which converts 
your BASIC program into instructions that the microprocessor can 
understand; that is, into machine code. An interpreter is not the same 
as an assembler: an assembler assembles your assembly language 
program into machine code once and for all and, in the case of some 
assemblers, shows you the machine code listing. An interpreter has to 
interpret each BASIC statement every time that you run the program. 


Why use assembly language? 
First, because it is fast. Because BASIC is interpreted, it is slow — 
interpreting takes up time. 


Second, use it when you are short of memory space. A machine code 
program often uses less memory space than an equivalent BASIC 
program to do the same job. 


The operating system 

You will find a lot of references in this book to the BBC Micro’s 
operating system. This is a program in the computer that controls the 
machine itself, irrespective of what programming language is currently 
being used in the computer. For example, the operating system controls 
display on the screen, and communications with other devices such as 
printers and cassette recorders. Whatever programming language you 
are currently using, you need an easy way of using that language to 
send instructions to the operating system. In BASIC you can use, for 
example, VDU and *FX. This book shows you how to do the same jobs 
in assembly language. 


And next ... 
That's enough general description. The way to learn anything is to do it 
— so it’s now time to get into the book. 


How to use this book 


This book is a course, not a reference book. In other words, in order to 
master the ideas in it, you need to work through it. That means trying 
all the programs, running them with our data and your own until you 
understand how they work. It also means trying all the ‘SAQs’: 


SAQs 

SAQ stands for ‘self assessment question’. These questions are 
designed to help you learn. You can’t learn programming by reading 
about what you should do. You learn by doing things and by asking 
questions until you get the answers you need. The SAQs help with that 
process. In this book they are very important since in many cases they 
contain key ideas. If you skip them, the only way you will find back to 
these points is through the index. 


Assignments 

Assignments are for students who are using this book as part of a 
National Extension College course. The answers to assignments are not 
included in this book. 


Use of colour 
Colour is used to highlight important points and new material. 


IK) 

Whenever you see this symbol you should stop reading and writing and 
get to your keyboard in order to try the activity described. 

The tape 


Most of the programs in this course are on the cassette tape which 
accompanies the course. Loading these into your micro will save you a 
lot of typing and avoid your accidentally introducing typing errors 
which will prevent your programs from running. Programs are listed on 
the tape by a code made up from their program number in the course. 
Thus ‘Program 6.3’ in the text appears on the tape as ‘AS6P3'. 


Some programs have made use of Mode 3 to produce a clearer screen 
layout. If you are using a model A micro, then you will need to change 
the Mode line in the program to Mode 7 before you can run the 
program. 


Note 

The programs in this book will run as written on a BBC Microcomputer. 
They will also run on an Acorn Electron computer provided you 
change any ‘MODE 7’ statements to a mode between 0 and 6. The tape 
which accompanies this book will load into both the BBC Micro and 
the Electron. 


UNIT 1 
Number representation 


1.1. Number systems and bases 
1.2 The binary system 
1.3. Binary numbers in microcomputers 
1.4 Hexadecimal numbers 
1.5 Numbers in the BBC Micro 
1.6 The computer’s memory 
Assignment A 
Objectives of Unit 1 
Answers to SAQs 


Introduction 


Although computers use binary numbers, we only need to use decimal 
numbers when programming in BASIC. Assembly language program 
ming, on the other hand, requires an understanding of binary and 
hexadecimal numbers. If you are already familiar with these, including 
the two’s complement method of representing signed numbers, then 
you may wish to move on to section 1.6 which deals with the memory 
of the BBC Micro. 


1.1 Nurhber systems and bases 


There are many methods of representing numbers, some more efficient 
than others. For example, the Roman method using I, V, X, L, C and M 
is very inefficient, making even simple arithmetic calculations very 
tedious. But most number systems involve a ‘base’, with our everyday 
number system using a base of 10. 


The decimal system 
In the decimal system every number is represented by a combination ol 
the ten digits 


0,1. 2, 3, 4. 5. 6 7, 8 9. 
To make a number larger than 9, the digits are positioned to show how 


many 10's, 100's (10 * 10), 1000's (10 * 10* 10) etc. there are in the 
number. So 


837 = 800 + 30 + 7 
=8*100+3%*10+ 7 
=8* 107+ 3%*10'+ 77%* 10°. 

SAQ 1 


Write the following in the form (a * 10°) + (b * 10%) + (c * 10') + (d * 
10°) where a, b, c and d are digits between 0 and 9: 

(a) 8352 (b) 5032 (c) 2100 

SAQ 2 

Write the following as ordinary decimal numbers: 

(a) (4 * 10°) + (7 * 107) + (5 * 10') + (8 * 10°) 

(b) (8 * 10%) + (6 * 10') + (3 * 10°) 

(c) (5 * 10%) 

This system is the decimal system and is based on the number 10. It 
uses 10 different digits and is said to be a ‘base 10’ number system. 


Any positive integer can be used as a base. For example, if we write 
numbers with a base of 5 then we use the five digits 0, 1, 2, 3, 4. Any 
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number represented in base 5 will be of the form: 
ta, * S70 (ay * oP) +... + (ay * Si fag * BY) 


where a,, a,.1,---,4, and ay are each one of 0, 1, 2, 3 or 4. The number 48 
(decimal) would be 143 (base 5) because 


143 (base 5) = (1 * 57) + (4 * 5") + (3 * 5%). 


Once we start writing numbers in different bases, we need a way of 
indicating which base we are using. This is done by writing the base as 
a suffix after the number. Thus 

48 (decimal) is written 48,, (read as ‘48 base 10’) 

and 143 (base 5) is written 143, (read as ‘one-four-three base 5’). 


We can therefore write statements such as 


4819 = 143s. 


1.2 The binary system 
The binary system is numbers to base 2 i.e. every number is written 
using only the digits 0 and 1. In the binary system, numbers are of the 
form 

a. #2" ea, * 2 + .... Ha, * 24a, * 2? 
where each of aj, a,.;,--.,€;, and ay is either 0 or 1. The number 274, 
would be written as 


11011, 
since 
14014, = (2 * 27) .(1 * 2°) (0 * 24) (2-127) & (2 2% 


16+8+0+2+1 
27. 


SAQ 3 


What are these binary numbers in decimal? 

(a) 1000 (b) 1111 (c) 11111111 (d) 1001010. 

Converting decimal to binary involves successive divisions by 2, 
recording the remainders at each stage. For example, in SAQ3(d) we 
found that 1001010, = 74, 9. Let's now reverse the process and start 
from 744. 
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Remainder 


74/2=37 0O 
37/2=18 1 (represents 1 * 2°) 
18/2= 9 0O 
9/2= 4 1 (represents 1 * 2°) 
4/2= 2 0 
2/2= 1 0 
1/2= 0 1 (represents 1 * 2°) 


Writing down the remainders from right to left, we find that: 


7419 = 1001010). 


Checking binary numbers 

You can check that 1001010 is in fact the correct answer to writing 74, 
in binary. This you can do by using the place value of the binary place 
positions. A ‘1’ in a binary number represents 1, 2, 4, 8, 16, ... (decimal) 
according to where it appears: 


* 2 ~2 
CoE CIEE 


Moving from right to left, each digit has double the value of its 
predecessor. Applying this to 1001010, we find: 


1001010 
64 + B+ 2 = 74 


SAQ 4 

Convert the following to binary: 

(a) 1249 (b) 10049 (c) 25549 (d) 655354, 

Notice that (c) and (d) represent the largest numbers that can be made 
with 8 binary digits and 16 binary digits respectively. These numbers 


are important when programming computers and they will be men 
tioned on many other occasions during this course. 


Adding and subtracting 


Because only two digits are involved in binary numbers, binary 
addition and subtraction is very simple. 


Addition 


0+0=0 
1+0=1 
12 


BO 
+ 4+ 
| 
— 


= 10 


PR 
| 


That final 10 means 10, (i.e. 249). It is not the decimal number ten. 


Subtraction 


0-0= 0 
1-0= 1 
O-1=-1 
1-1= 0 


Here are some examples of binary addition. First, an addition without a 
carry: 


10101 (= 21) 
+ 1010 (= 10) 


11111 (= 31) 





Next, an addition that involves carries: 


11111 (= 31) 
+ 1010 (= 10) 
1111 (Carries) 


101001 (= 41) 


Let’s check this result, using the place values of 1, 2, 4, ... 


101001 
32 +8 + 1=41ig 


Next, subtraction, starting with an example that does not require a 
borrow: 


11111 (= 31) 
— 1010 (= 10) 


10101 (= 21) 


_ 





And finally an example of subtraction with borrows: 


10101 (= 21) 





— 1111 (= 15) 
11 (Borrows) 
110 (= 6) 
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SAQ 5 
Give the results in binary number notation of the following calcula- 
tions: 


(a) 110011 + 1100 (b) 1000 + 101 (c) 110011 + 1111 (d) 11111111 + 1 
(e) 1111 - 110 (f) 1111 - 101 (g) 110011 - 1111 (h) 10000 - 1 


1.3 Binary numbers in microcomputers 

Most micrpcomputers are what is called ‘8-bit’, although 16-bit micros 
are becoming more widely available. In an 8-bit micro, each unil o! 
memory (usually called a ‘memory location’ or ‘address’) has room tor 
eight 0’s or 1's. In Figure 1.1, an 8-bit memory location is shown storing 
the decimal number 103,,. 


| 0} 1} a] of of 2] 4] 2 


Figure 1.1 An 8-bit memory location storing 1034) 


If only positive whole numbers were to be stored then the range ol 
numbers which could be stored in one 8-bit location would be 0 to 255 
If two memory locations were used to show one number then the range 
of positive numbers which could be stored would be 0 to 65535. Figure 
1.2 shows two 8-bit locations being used to store the decimal number 
6836. 


o}ofo}1}a{ ofa] of [2}o}1}1}o]2}olo| 
Figure 1.2 A 16-bit number (68369) stored in two 8-bit locations 


However many bits we use, the bits are always numbered according to 
the same system. The ‘least significant bit’ (often shortened to ‘Isb') is 
called ‘bit 0’ and the remaining bits are numbered upwards from there 
In an 8-bit system, the bit numbers are as shown in Figure 1.3. 


bit numbers 
265 4 3'2°1°0 


CITT 1 
\ I 


most significant bit least significant bit 
(msb) (Isb) 


Figure 1.3 Bit numbers in an 8-bit system 
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In a 16-bit system, the bit numbers are as shown in Figure 1.4. 


15 1413 12 11109876543210 


LITT TTT TIT ttt tt 
- i 


Figure 1.4 Bit numbers ina 16-bit system 


Negative numbers 

If you are going to write a program involving negative numbers, you 
need to have a means of telling whether a number is positive or 
negative. The sign has to be part of the number as stored in the 
computer. In BASIC on the BBC Micro, numbers are of two types: 
integers (suffixed with %) which take up 32 bits of memory and floating 
point variables which take up 40 bits. Both BASIC integers and floating 
point numbers include a sign (+ or -) within their notation. In assembly 
language, there is no set bit-size for numbers. If we are using 8-bit 
numbers and need to have signed numbers, then the sign must be 
included within the 8 bits. There are many ways in which this can be 
done but most microcomputers use the same method, called ‘two's 
complement signed numbers’. We shall therefore describe only this 
method. 


Two’s complement 

In two's complement, all numbers have to contain the same number of 
bits. This is arranged by putting zeros in front of positive numbers. For 
instance, in an 8-bit system, 104 is written 01101000 instead of 
1101000. Apart from the presence of these ‘leading zeros’, two's 
complement positive numbers are no different from the binary 
numbers that we were looking at in section 1.2. 104 in two's 
complement is 01101000 which is essentially the same as 1101000. The 
0 placed in front of 1101000 to make it 01101000 does not affect the 
way that the number behaves in calculations. 

The difference arises with the representation of negative numbers. For 
example, -104 is formed in two’s complement by the following 
procedure: 


(| Take +104 in two's complement binary 01101000 

1) Change the 1's to 0's and the 0’s to 1's 10010111 
(This creates the one’s complement of 104) 

O Add1 10011000 


(This produces -104 in two's complement) 
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We can check that this makes sense by adding the two's complement 
for 104 to that for -104: 


01101000 (= 104) 
add 10011000 (= -104) 


ang a 
Zero in 8-bit representation 


Since we fixed all numbers to be 8-bits long, the answer is zero which 
is what we' would expect from adding +104 to -104. What about the 
carry? Since it is outside the limits that we have defined for our number 
system, we just ignore it. 


SAQ 6 

Which decimal numbers do the following represent? Form their two's 
complements. Which decimal numbers do the results represent? Verily 
your answers by adding back the original numbers. 


(a) 00100101 (b) 00000001 (c) 00000000 (d) 01111111 


If you look at the numbers we have just generated, there is a pattern to 
their bit 7’s: 


Positive numbers Negative numbers 


01101000 (+104) 10011000 (-104) 
00100101 (+37) 11011011 (-37) 
00000001 (+1) 11111111 (-1) 

01111111 (+127) 10000001 (-127) 


Two's complement numbers 


Positive numbers: bit 7 = 0 





Negative numbers: bit 7 = 1 


For this reason, bit 7 is called the ‘sign bit’. Because bit 7 is needed to 
show the sign of the number, there are only 7 bits left (bits 0 to 6) for the 


magnitude of the number. The largest positive number in an 8-bit 
system using both positive and negative numbers is: 

01111111 (= +127) 
and the smallest number is 

LOOOO0000 (= -128). 


The range of numbers represented is 


-128 to +127. 
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i.e. 256 numbers. In other words, as you might expect, 8-bits can be 
used to represent the numbers 0 to 255 in ordinary binary or -128 to 
+127 in a signed binary system. 


What you need to know 

How and why the two’s complement antes of producing signed 
numbers works requires mathematical proof beyond the scope of this 
course. All we have done is to show you how to generate two’s 
complement numbers and to give some examples to show that they give 
correct answers. For the rest of this course all you need to know is: 


O Microcomputers usually use two’s complement signed num- 
bers. 

O The msb is the sign bit with 0 = positive and 1 = negative. 

O How to form a two’s complement number. 

O That if you correctly perform binary arithmetic on two’s 
complement numbers, correct answers will result. 


1.4 Hexadecimal numbers 

Microcomputers also use hexadecimal numbers, which are numbers 
base 16. They are often referred to as ‘hex numbers’. To write down 
numbers to base n we need n digits. That causes no problems for bases 


up to 10, since we have 10 ready-made digits (0-9). Bul for hexadecimal 
we need 16 digits which is 6 more than we already have digits for. We 
need digits to represent ‘10°, ‘11°, °12’, "13°, ‘14° and ‘15° as digits 
instead of as base 10 numbers. For these extra digits we use the letters 
A. B, C, D, E and F. The hexadecimal digits are 


@; 1; 2; 3; 4; 5: Gs 7. B Oy A, By €; B, By BF. 


The positions of the first four digits in a hexadecimal number have the 
values 


4096 256 16 1 


Here are some examples: 


126 = (1 * 167) + (2°*°26°) 
16 + 2 
18 


3DF = (3 * 167) + (13 * 161) + (15 * 16°) 
= 768 + 208 + 15 
= 991 
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SAQ 7 


Write the following hexadecimal numbers as decimal numbers: 
(a) E9 (b) 10 (c) 100 (d) FFFF (e) ABCD 


The importance of hexadecimal 

You can see how tedious binary calculations are. It also difficult to be 
sure that you have read and transcribed binary numbers correctly. For 
example, the apparently simple decimal calculation 


348 5 131 = 479 
involves writing down 9 digits. In binary, the calculation is 
101011100 + 10000011 = 111011111 


and involves 26 digits. Although the computer has to work in binary, it 
is more convenient if we can communicate with it in a more compact 
number system. The system we use (when not in decimal) is 
hexadecimal. It is used because of its very close relationship to binary. 


There are 16 hexadecimal digits. If these digits are coded in binary, 4 
bits are needed: 


Hexadecimal Binary 
0 0000 
1 0001 
2 0010 
3 0011 
4 0100 
5 0101 
6 0110 
7 0111 
8 1000 
9 1001 
A 1010 
B 1011 
C 1100 
D 1101 
E 1110 
F 1111 


Any 4-bit binary number can be represented by one hexadecimal digit: 


1011 can be represented by B 
0111 can be represented by 7. 
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We can represent any 8-bit binary number by two hexadecimal digits 
e.g. 


1110 1111 = EF since 1110 = E and 11141 = F. 


So 
11101111, = EF 4g = 23949. 


The simplicity of hexadecimal is that, provided we use binary numbers 
which are 4 bits long (or multiples of 4 bits long), we can directly 
exchange 4-bit sections for their hexadecimal equivalents. For this 
reason, the BBC Micro often allows you to extract information in 
hexadecimal e.g. the length of a program in bytes or a position in 
memory. 


Hexadecimal numbers are sometimes preceded by the symbol ‘$’ or 
followed by the symbol ‘H'’ e.g. 


$25 and 25H both mean 254, 


So as to avoid any confusion with the string symbol $, the BBC Micro 
uses the symbol & for hexadecimal. So 


&25 (BBC Micro) = $25 (some micros) = 254¢. 


Throughout this course we shall use ‘&’ to indicate hexadecimal 
numbers. 


SAQ 8 


Write the following binary numbers as hexadecimal: 


(a) 01000100 (b) 10000000 (c) 00000001 (d) 11111111 
(e) 10101111 


1.5 Numbers in the BBC Micro 


After all that trouble of converting numbers from one base to another, 
you will be glad to know that the BBC Micro will convert numbers into 
certain forms at your request. 


To print in decimal 
Typing PRINT 142 produces 142 on the screen. The BBC Micro normally 
produces decimal in PRINT statements. 


To convert decimal to hexadecimal 

Typing PRINT~ 142 produces 8€ on the screen. 142,, has been converted 
to hexadecimal. (The symbol ‘”’ is called a tilde. It is the shifted ‘1’ and 
appears as ‘+’ in Mode 7. In all other Modes it appears correctly on the 
screen). 
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To convert hexadecimal to decimal 
The BBC Micro will give you output in hexadecimal. If you want to 
convert this to decimal you use PRINT &... PRINT &8€ produces the 
response 142. 
Examples of conversions 
>PRINT 142 
142 No conversion. Normal BBC PRINT produces 
decimal output. 


>PRINT &A5 BASIC PRINT normally produces decimal, so &A5 


* 165 was converted to decimal 165. 
>PRINT ~&A5  Thetilde directs the PRINT statement to display in 
AS hex. Hence the hex number stays in hex. 
>PRINT ~142 The tilde directs the PRINT statement to display in 
8E hex. So decimal 142 is converted to hex. 


1.6 The computer's memory 


When operating in BASIC, a microcomputer allocates memory space to 
programs and variables in a manner determined by the language 
system’s designers. You can override the automatic memory allocation 
and use a system of your own, but you rarely need to do so. In assembly 
language, on the other hand, you have to make most of the decisions 
about memory allocation. 


The part of the memory we are concerned with is the RAM (random 
access memory). An outline of this for the BBC Micro is shown in 
Figure 1.5a (for micros without disc storage). Each memory location is 
referred to by its position in the memory. The first location is &00U0, 
the next &0001, the next &0002 and so on up to &FFFF. The memory is 
also notionally sub-divided into ‘pages’, each &100 (256 decimal) 
locations long. Blocks of pages are then set aside for specific purposes. 
Some of these can be seen in Figure 1.5b. Two pages are of special 
importance in assembly language programming: Zero Page (locations 
&0000 to &OOFF) and Page One (locations &0100 to &01FF). 

&FFFF 





&8000 


GRAPHICS 


Motel 
Model { LOMEM —s con eh cape as a a ge 


Figure 1.5a The BBC Micro's memory 
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user-defined characters 


language workspace 


Figure 1.5b Detail of the lower part of the memory 









How the memory is used depends on the operating system design. All 
6502-based computers use Zero Page in a similar way and Page One in 
an identical way. 


Zero Page 

Almost anything done with Zero Page works faster than doing the same 
thing with anothef part of the memory. (We will go into the details of 
why this is later in the course). So the computer designer needs to use a 
large part of Zero Page for built-in routines of the computer itself. But in 
the BBC Micro, a part of Zero Page is left free for the user. The free 
locations are &70 to &8F. 


Page One 

This is a very special section of memory and is called the ‘stack’. It is 
used by the 6502 microprocessor, largely to keep track of what it is 
doing. You can use Page One with care but do not attempt to do so until 
you have studied the Unit on the stack. Any accidental altering of 
memory values in Page One may cause the computer to lose track of 
what it is doing and could mean that you lose your program and data. 


Other pages 

The other pages that you will most immediately need are those in 
which you can place assembly language programs or data for those 
programs. First, let’s look at how the memory is organised for BASIC 
programs. In Figure 1.5a you can see four positions in memory: PAGE, 
TOP, LOMEM and HIMEM. Let’s look at each of these: 


PAGE 

This is usually location &E00 (&1900 in disk-based systems) and is the 
start address of the BASIC programs that you type in. Your BASIC 
programs fill memory from &E00 upwards. 

TOP 

This is the end location of any BASIC program you currently have in 
memory. So TOP depends on how long your program is. The length of 
your program is found from TOP - PAGE. 
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LOMEM 

LOMEM is the location in memory above which your BASIC program 
stores its variable values. 

HIMEM 

This is the highest location in memory in which your BASIC program 
may store its variables. Unless you specifically alter the position of 
HIMEM, immediately above it there is an area of memory used for 
graphics. The higher the resolution of the Mode you are in, the lowes 
the position of HIMEM. 


PAGE, LOMEM and HIMEM can all be altered by the programmer. 


You should only move PAGE up from &E00 (or &1900 in disc-based 
systems), not down. If, before entering a BASIC program, you raise 
PAGE &100 bytes with the instruction 


PAGE = &FOO (or PAGE = PAGE + &100) 


then your BASIC program will be entered &100 bytes higher than usual. 
This means that the locations &E00 to &EFF will not be used by the 
program and become free for your use. 

BASIC variables are usually stored above the program. If you want to 
create &100 bytes of free memory between the program and LOMIiM 
then type 


LOMEM = LOMEM + &100 


That would make a BASIC program store its variables &100 bytes 
higher than usual, so leaving &100 bytes between TOP and LOMEM for 
you to use. 

You might wish to arrange to store your BASIC variables below the 
program so that LOMEM would be lower than PAGE. Such an 
arrangement of memory is not used in this course. 

HIMEM may only be moved down from its default position for 
whichever Mode you are in. You might move HIMEM down with the 
instruction 


HIMEM = HIMEM - &100 


in order to free &100 bytes for your use immediately above HIMEM. 


Don't worry if you don’t feel confident about moving PAGE, LOMIM 
and HIMEM at this stage. As the course progresses, you will fini 
‘memory management’ easier to follow. 
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Reading memory values 

You may ‘read’ (i.e. look at) any memory location including Page One 
(with the exception of certain special Input-Output locations between 
addresses &FCOO and &FEFF) without doing any harm. (Reading a 
memory location does not alter its value unless it is a special type of 
location). Try the following to read any memory location. 


To find out what value is currently in a memory location such as 
location &70, type 


PRINT ~2?&70 (for the contents in hex) 
PRINT 2&70 (for the contents in decimal) 


The use of ? to read the value in a memory location is the BBC Micro's 
equivalent of the ‘PEEK’ statement used on most other micros. 


Try PRINT ~?&... and PRINT ?&... on some locations on your 
Micro. 


SAQ 9 


The result of printing out the contents of a memory location is always a 
number between 0 and &FF (0 - 255 decimal). Why? 


What these numbers represent depends on what the memory locations 
are being used for: e.g. to represent a number, an ASCII code, a piece of 
assembly language and so on. You can’t tell which of these the number 
is simply from inspecting the memory in this way. 

Altering memory values 

To make the memory location &70 contain the decimal number 15, you 
type 


7870 = 15 


The use of ? to alter the value in a memor” location is the BBC Micro's 
equivalent of the ‘POKE’ statement on most other micros. 


This has put the decimal number 15 into the memory location &70 and 
the previous contents of &70 have been lost. If you want to put a 
hexadecimal number — say &42 — into &70 then you type 


2870 = &42 
SAQ 10 


(a) Find out what values are currently in locations &70 to &74 by typing 
PRINT ~2&... and PRINT ?&... for each location. 


(b) Now put five numbers of your choice into the locations using ?&70 = 
+» Cte, 


(c) Now repeat (a) to check that the values you have placed in these 
locations in (b) are really there. 
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More on memory operations 

There are a few more facilities available for placing data in memory 
from BASIC. These are described in section 6.7. You may like to read 
that section now although the techniques described are not used until 
Unit 6. 


Assignment A 


1 


What are the following in decimal? 

(a) 63, (b) 35, (c) 101, (d) 211, 

Convert the following decimal numbers to the bases shown. 
(a) 57 into base 3 (b) 25 into base 8 

Write the following decimal numbers in binary. 

(a) 13 (b) 100 (c) 211 

Evaluate: 

(a)10010 + 101 (b) 10111 + 101 (c) 1111 + 1111 


Evaluate: 
(a) 1101101 — 1001 (b) 1101101 — 11111 (c) 100000 — 111 


Put the following decimal numbers into two's complement 8-bil 
signed format. 
(a) 18 (b)—-18 (c) 127 (d) -127 


Objectives of Unit 1 
After studying this Unit you should be able to: 


OBO oO eso Oo 


Convert numbers in any given number base to any other basc. 
Add and subtract binary numbers. 

Write binary numbers in their 8-bit two’s complement format. 
Write binary numbers in hexadecimal. 

Use the BBC Micro to display numbers in decimal or hexadecimal. 
Read the contents of any memory location in the BBC Micro. 


Write either a decimal or a hexadecimal number into a 
memory location in the BBC Micro. 
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Answers to SAQs 

SAQ 1 

(a) 8352 = (8 * 10°) + (3 * 10%) + (5 * 10") + (2 * 10°) 
(b) 5032 = (5 * 10°) + (0 * 10%) + (3 * 10') + (2 * 10°) 
(c) 2100 = (2 * 10°) + (1 * 107) + (0 * 10’) + (0 * 10°) 


SAQ 2 
(a) 4758 (b) 8063 (c) 5000 


SAQ 3 

(a) 1000, = 8 (b) 1111, =8+4+2+1=15 

(c) 11111111, = 128 + 64+ 32+16+8+4+2+4+1= 255 
(d) 1001010, = 64+ 8+2=74 


Remainder 
0 


orwa@ 


0 
1 
1 1219 = 1100, 


Remainder 


25/2 
12/2 
6/2 
3/2 
1/2 


(c) 


255/2 
127/2 
63/2 
31/2 
15/2 
7/2 
3/2 
1/2 4 255;9 =11111111, 


We haven’t written out the binary calculations for this one, but if you 
have reached the end, you should have found that 


0 
1 
0 
0 
1 


Remainder 


[eel cell cell el eel cel ol 


e 
orwnN vu 


65535;9 = 1111111111111111),. 
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SAQ 5 


(Carries and borrows are not shown.) 


(a) 110011 (=51) (b) 1000 (=8) 

















+ 1100 (= 12) + 101 (=5) 
+111111 (= 63) 1101 (= 13) 

(c) 110011 (=51) (d) 11111111 (= 255) 
+ 1111 (= 15) + 1 (=1) 
1000010 (= 66) 100000000 (= 256) 

(e) 1111 * (= 15) (f) 1111 (= 15) 

- 110 (=6) - 101 (=5) 
1001 (= 9) 1010 (= 10) 

(g) 110011 (=51) (h) 10000 (= 16) 

- 1111 (= 15) Z 1 (=1) 
100100 (= 36) 1111 (= 15) 
SAQ 6 


(a) 00100101 (= 37) 
Two’s complement = 11011010+1 = 11011011 (= -37). 
Verification: 
00100101 
Add 11011011 


1 00000000 


(b) 00000001 (= 1) 
Two’s complement = 11111110+1 = 11111111 (= -1). 
Verification: 
00000001 
Add 11111111 


1 00000000 
(c) 00000000 (= 0) 
Two’s complement = 11111111+1 = 00000000 (= 0). (Ignore the 
carry from bit 7.) 
No verification is needed but this example demonstrates that the 
two’s complement method works for zero as well. 
(d) 01111111 (= 127) 
Two’s complement = 10000000+1 = 10000001 (= -127). 
Verification: 
01111111 
add 10000001 


1 00000000 
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SAQ 7 

(a) E9,g = 14 * 16 + 9 = 224 + 9 = 2334, 

(b) 10,5 = 1645 

(c}) 10015 = 25649 F 

(d) This can be done by a short cut, since FFFF,, must be 1 less than 


10000,,. 
So FFFF,, = 65536-1 = 65535. 
(e) ABCD,, = 10 * 16° + 11 * 167 + 12 * 16 + 13 
= 10 * 4096 + 11 * 256 + 12 * 16 + 13 
= 40960 + 2816 + 192 + 13 
= 43981 
SAQ 8 
(a) 0100 0100 = 44,, 


(b) 1000 0000 = 80,, 
(c) 0000 0001 = 0146 (or 14.) 
(d) 1111 1111 = FFig 
(e) 1010 1111 = AF,, 


SAQ 9 

Every memory location is an 8 bit location holding 0’s and 1's so the 
locations contain binary numbers from 00000000 to 11111111 (= 255 
decimal). 


SAQ 10 


No answer is required. 
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UNIT 2 
Addition and subtraction 


2.1 
2:2 
2.3 
2.4 
2.5 
2.6 
ul 
2.8 
2.9 
2.10 
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The 6502 microprocessor 
Loading the accumulator 
Writing a program 

STA 

Labels 

Addition 

Subtraction 

Adding larger numbers 
Subtracting two-byte numbers 
The program counter 
Assignment B 

Objectives of Unit 2 
Answers to SAQs 


2.1 The 6502 microprocessor 


When you are programming in BASIC, you do not need to know what 
the computer does with the words and variables that you enter. But 
when you are programming in assembly language, you need to know 
something about the inner workings of the microprocessor used by 
your microcomputer. The 6502 is the microprocessor used by the PET, 
Apple and other micros. The BBC Micro uses the 6502A which is like 
the 6502 but runs at twice the speed. 


The area of the 6502 that we are most concerned with in this course 
contains the six ‘registers’ — places in which numbers can be stored. 
Numbers which are not in these registers have to be kept outside the 
microprocessor in Random Access Memory (RAM). The registers of the 
6502 are shown in Figure 2.1. 


A register (8-bit) A 














MEMORY 
X register (8-bit) x Not part 
Y register (8-bit) Y of the 
Program counter (16-bit) PC 
Processor status register P 
(8-bit) 


(Flags) 
Figure 2.1 The registers of the 6502 microprocessor 


We shall not explain what each of these sections does until each is 
needed to solve a particular programming problem. In this unit we are 
going to look at the A register or accumulator. 


The accumulator is an 8-bit register. It can hold a binary number 
between 00000000 and 11111111. This, as you have seen in Unit 1 is 
called a byte. As in the case of writing binary numbers, the register is 
always shown with the Isb (least significant bit) on the right and the 
msb (most significant bit) on the left. 


Bit numbers 


765 43 2 1 «0 


PoE TT 


most significant bit least significant bit 


Figure 2.2 Bit numbers in the accumulator (A register) 


The accumulator gets its name from the fact that it accumulates 
numbers. It is the part of the microprocessor where the arithmetic takes 
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place — or rather, appears to take place as far as the programmer is 
concerned. The arithmetic is actually performed by the Arithimotic 
Logical Unit (ALU) but the programmer works with the registers and 
not with the ALU. The accumulator is similar to the display on a pocket 
calculator although a calculator display does not perform calculations 
— the display is more like a ‘window’ which enables you to see into the 
calculator. When you add 5 and 3 with a pocket calculator you: 


Display of calculator 


- put 5.into the memory 5 
- press + 5 
. put 3 into the memory 3 
. press = 8 


So all the numbers 5, 3 and 8 appear in the display. The accumulator in 
a microprocessor works in a somewhat similar way. Let's explore its 
behaviour in more detail. 


2.2 Loading the accumulator 


The accumulator is involved in most activities in the microprocessor 
To put a number directly into the accumulator your program mist 
execute the command: 


LDA #number. 
e.g. 


LDA #5 puts decimal 5 into the accumulator 
LDA #&3C puts &3C into the accumulator 





This command is shown diagramatically in Figure 2.3. 


Figure 2.3 Actionof LDA# 3C 


# immediate 
In assembly language, numbers often refer to memory locations. |! you 
want a number to be treated by your program as an ordinary numeric 
value you have to prefix it with the symbol ‘#*. This is read as 
‘immediate’. 


# (= immediate) means ‘what follows is an ordinary number | 
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SAQ 1 


What hex number is in the accumulator after each of the following? 


(a) LDA #3 (b) LDA #0 (c) LDA #255 (d) LDA #300 (e) LDA #&0 
(f) LDA #&8 (g) LDA #&FF (h) LDA #&F00- 


2.3 Writing a program 

So far we have only one assembly language command, but we will try 
to write a program using it. Assembly language programs in the BBC 
Micro can be written within BASIC. This is the method we are going to 
use in this course. The assembly part starts with a square bracket: 


[ 
and ends with 


RTS 
J 


We need the RTS (ReTurn from Subroutine) at the end because we are 
going to execute the routine with CALL which treats the machine code 
as a sub-routine. We must therefore indicate when the subroutine has 
ended. When used in this way, RTS can be thought of as ‘Return to 


BASIC’. 
RTS = ReTurn from Subroutine 


Here is our first assembly language program: 
10 REM FIRST PROGRAM 
30 DIM 2X50 
40 PX = 2% 
50 C 
60 LDA #&2A \Put the number &2A into the accumulator 
70 RTS \Return to BASIC 


80 J 
90 END 


Program 2.1 
First, a few points about the program. 


0 It is meant to be an assembly language program but only lines 60 and 
70 are assembly language statements. The symbol C announces the 
start of the assembly language part of the program and the symbol J 
declares the end of the assembly language. The rest is BASIC. This is 
a useful feature of the BASIC assembler provided in the BBC Micro. 
It makes it very easy to write and run assembly language programs. 


O After each assembly language statement it is possible to insert 
comments to remind you of what is happening in the program. The 
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comments to remind you of what is happening in the program. ‘The 
comment must be preceded by ‘\’ in BBC assembly language. Most 
other assemblers use ‘;’. Some use a ‘fixed format’ where the 
statements and comments have to be typed into pre-defined 


columns on the screen. 


We have used one blank line to clarify the structure of the program. 
As our programs get longer we shall use more blank lines. In BBC 
BASIC, a blank line is created by typing the line number followed by 
one space. (Some programmers prefer to follow the line number 
with a ‘:’ e.g. 

20: 
The statement ‘DIM 2%50’ has told the assembler to reserve 50 bytes 
of memory space immediately above the BASIC program. This space 
is labelled Z%. (Some assemblers use ‘ORG’ to indicate the starting 
address of the program.) The assembler will place the machine code 
into this space (see below). The variable Z% is not special: you 
could use any numeric variable to label the space e.g. DIM space%50 
If you use a floating point variable, then a space is needed between 
its name and the number of bytes e.g. DIM Z 50 or DIM space 50. (Hore 
we are reserving a block of space but leaving the assembler to place 
the machine code there. The reserved space can be addressed byte 
by byte using a technique described in section 6.8.) 
The ‘C’ line is preceded by a line saying P% = 2%. P% is an ‘assembler 
directive’. It tells the assembler where, in memory, to place the 
assembled program. You must use P% as the variable to which you 
assign the variable reserving the memory space. In Program 2.1 we 
could have replaced lines 10 and 20 by the single statement ‘d1M 
P%50’. This method is suitable only for programs that will contain 
only one assembly routine. If you have three routines in one 
program, each to be used at a different time, then you would reserve 
three separate blocks of memory e.g. 
DIM AXSO, B%75, CX30 
You then set P% = A% before assembling the first routine, set P% = 
B% before assembling the second routine and set P% = C% before 
assembling the third routine. 


Another method of placing the machine code in memory is to use a 
statement which directly assigns a memory location to P% wv. 

Px = &2000 

This causes the assembler to put the machine code into memory 
locations &2000 upwards. You have to be careful with this method 
since the memory you use is not reserved and you have to make sure 
that nothing else (e.g. BASIC’s variables) uses that space. So, the 
three approaches to reserving memory that we have suggested so far 


are: Method 1 Method2 Method 3 
30 DIM 2%50 30 DIM P%50 30 PX = &2000 
40 PX = 2% 40 C etc 40 C etc 
50 C etc 
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P% changes in value during the assembly process as the memory 
locations above its initial value are filled with machine code. So once a 
program is assembled, the value of P% is no longer what it was when 
the statement P% = ... was executed. 


In ‘fixed format’ assemblers, horizontal spacing of the program is 
critical. This is not the case with the BBC BASIC assembler. All the 
programs in this course were typed in using L1ST0 0 (see User Guide 
page 290) without any space between line numbers and the statements 
that follow. We then told the computer to list them in LIST0 1. Towards 
the end of the course, we use LI$T0 7 to highlight indented loops. 


The program looks fine — but how do we know if it works? As it stands, 
we can’t find out if it works because we can’t directly see what number 
is in the accumulator. Since you know how to read the contents of a 
memory location let’s transfer the contents of the accumulator to a 
memory location. To do this we need a new command. 


2.4 STA 


STA means STore Accumulator 





STA is not enough by itself to store the contents of the accumulator 
since we have to tell the computer where to store what is now in the 
accumulator. We have to specify a memory location. To start with, 
we'll use one of the locations between &70 and &8F. 


STA &70 means store the contents of the accumulator in memory 


location &70 





‘Store’ actually means ‘copy’ rather than ‘transfer’. After executing STA 
&70, the number that was in the accumulator is still there but is now 
also in memory location &70. 


The action of this is shown in Figure 2.4. 
MEMORY 


a ae 


| Number copied 


to memory &70 


Figure 2.4 Action of STA &70 
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We shall now add this statement to Program 2.1 to make Program 2.2. 
At the same time we have changed DIM 2%50 to P% = &2000. Kither 
statement will provide the program with memory space but P% = &2000 
fixes the machine code at a precise location which makes it easier for 
you to compare what happens on your run with our run. 


10 REM STORE A NUMBER 

20 

30 PX = &2000 

40 C 

50 LDA #&2A \Put the number &2A into the accumulator 

60 STA &70 \Store the contents of the accumulator in memory 
. \location &70 

70 RTS \Return to BASIC 

80 J 

90 END 


Program 2.2 


(K] Before you run your program, put 0 into memory location &70 by 
typing ?&70 = 0. Then run the program by typing RUN in the same way as 
you would for an ordinary BASIC program. Check that the following 
appears: 


>RUN 

2000 

2000 A9 2A LDA #&2A \Put the number &2A into the accumulator 

2002 85 70 STA &70 \Store the contents of the accumulator 
in memory location &70 

2004 60 RTS \Return to BASIC 


Program 2.2 (assembled) 


We shall return to what all this means in a moment; but first, what has 
it done? Check the contents of &70 by typing P.~?8&70. It is still O! Whe 
program has been ‘RUN’ but has not done what we expected it to do 
That is because an assembly program involves two processes: RUN and 
CALL. 

RUN and CALL 

Typing RUN as above assembles the program. That is, it turns the 
assembly listing that we typed in into machine code. The machine code 
created from our listing is shown below. 


, Memory Machine 


1 locations ge. code 


LDA #&2A 
STA &70 








Assembly language 


Once the program is assembled, you use it by a CALL command tram 
BASIC. You can use CALL in three ways: 
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1 CALL the name of the memory location at which the program starts. 
To do this, type 


CALL Z% 


if you used Z% as the label for the memory space for the program. 
1 CALL the number of the memory location if you used P% = &2000 i.e 
CALL &2000 


O CALL a ‘label’ attached to the start of the program. This will be 
explained in section 2.5. 


(Remember that since the value of P% changes during the assembly 
process, typing CALL P% won't work.) 


We shall now try all three of these. 


Method 1 CALL memory location 
Type RUN to assemble Program 2.2. 
Then type CALL &2000. 

Now type P.?&70. 


You should see the number 42 on the screen since the program put &2A 
(= 42) into &70. Also type P. ~?&70 to see the result in hex. 


Here is how our test run appears on the screen: 


Test run 
>7870 = 0 Put the number 0 into memory Location &70 at start. 
>CALL &2000 Call the program. 
>P.28&70 Check the contents of memory location &70. 
42 It is now 42 as we would expect. 
>P.~28&70 Check again but in hex 
2A 


Method 2 CALL Z% 
To check this method, change Program 2.2 to: 


10 REM STORE A NUMBER 


20 

30 DIM 2%50 
40 PX = 2% 
50 C 


60 LDA #&2A \Put the number &2A into the accumulator 

65 STA &70 \Store the contents of the accumulator in memory 
\location &70 

70 RTS \Return to BASIC 

80 

90 END 


and assemble it. 
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>RUN 

OEEO AY 2A LDA #8&2A 
OEE2 85 70 STA &70 
OEE4 60 RTS 


Notice that the machine code is just the same as before but the memory 
locations are different because DIM Z% has placed the machine code 
above the BASIC program. (Your locations may be slightly different 
since the start location is now determined by the length of the BASIC 
program including the comments and any spaces you have typed in.) 


To execute-the program, use CALL Z% or CALL &EE0: 


>7&70 = 0 Re-set location &70 to 0 so that we can test what happens 
>CALL 2% 
>P.~ 7870 

2A 


Method 3 Calling a label 
This is described in section 2.5. 


SAQ 2 

In Program 2.2, we loaded the accumulator in ‘immediate mode’ i.e. we 
put the number &2A directly into it. Write an assembly program which 
loads the accumulator with the contents of &70 and stores the result al 
&71. Check that your program works properly by putting the number 
&2D into memory location &70 before the run. 


SAQ 2 demonstrates a very important point about 6502 assembly 
language: numbers cannot be transferred directly from one memory 
location to another. To copy from one memory location to another, you 
have to first load the number from one memory location into a register 
and then copy it from the register into the second memory location. 


2.5 Labels 
A BBC assembly language label goes at the beginning of a line and starts 
with a ‘'.’. For Program 2.2 we need a label at the beginning of the 


program so we shall call it ‘start’. Program 2.3 shows it inserted into 
Program 2.2 at line 25. 


10 REM STORE A NUMBER 


20 

30 P% = &2000 
40 C 

50 .start 


60 LDA #&2A \Put the number &2A into the accumulator 

70 STA &70 \Store the contents of the accumulator in memory 
location &70 

80 RTS \Return to BASIC 

90 J 

100 END Program 2.3 
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Check that it works as follows: 


O Reset &70 to 0 with 2&70 = 0. 

OO Type RUN. 

O Type CALL start. (Without the . which appears in front of the label 
in the program.) 

O Check the contents of &70 with P.~?&70. 


You should get the answer 2A as before: 
Test run 


>27&70 = 0 
>CALL start 
>P.~?8&70 

2A 


In Program 2.3 we put the label on a new line above the position it 
referred to (LDA #&2A). Some programmers like to put the label on the 
same line as the item it refers to. In this case we would have written 


60 .start LDA #&2A 


If you try both methods, you’ll see that the memory locations shown in 
the left-hand column during the assembly are identical. 


Warning: These labels are part of BASIC. If you use a word both as a 
BASIC variable and as an assembly label, or use the same word for two 
different labels, you will not get an error message. The BASIC just 
re-assigns the variable to the latest use that you have specified and your 
assembled program will be faulty. 


2.6 Addition 


So far, we have loaded a number into the accumulator but we haven't 
done any calculations on the number. One thing that we can use the 
accumulator for is adding. Numbers are added to ine contents of the 
accumulator with the command 


Adc ADd with Carry 


The ADC command adds whatever follows it to whatever number is in 
the accumulator. At this stage let’s look at two items that might follow 
ADC. 


ADC #830 means add the number &30 to the current contents of the 
accumulator. 

ADC &70 means add the contents of the memory location &70 to the 
current contents of the accumulator. 


The steps involved in carrying out ADC &70 are shown in in Figure 2.5. 
The operation uses the arithmetic logical unit (ALU) of the micro- 
processor. This is where the microprocessor carries out its arithmetic 
and logical operations. Whenever an operation is performed by the 
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ALU, the result is always left in the accumulator which is itself part of 
the ALU. 


MEMORY 





Figure 2.5 Action of ADC &70 


These steps are 
O Step 1 The first number is already in the accumulator. 
O Step 2 Copy the number in memory location &70 into the ALU. 


O Step 3 Add the two numbers together. Add any carry in at the same 
time (see below). 


O Step 4 Copy the result in the accumulator. 


Notice that the result of ADC, whatever it is followed by, is left in the 
accumulator. 


ADC is quite straightforward apart from one small point. Because the 
accumulator can only hold numbers up to &FF we might well get a 
carry when two numbers are added. The microprocessor detects this 
carry with a ‘flag’ that we will explain later in the course. For now, we 
shall just say that ADC is sometimes preceded by an instruction to clear 
the carry flag. You will need to use this instruction until we discuss 
when it can be omitted. 





CLC CLear Carry: sets the carry flag to 0 


We can now write a program to add two numbers. Let’s add &25 and 
&30. The program is straightforward. However, it uses one new idea, 
which is to get the BASIC program itself to CALL the assembled 
machine code so that we don't have to do this at the keyboard. In 
Program 2.4, the assembly language of lines 40 to 110 will have been 
assembled by the time the program executes line 110. So, at line 150 we 
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can CALL the machine code by executing CALL begin. 
10 REM ADDITIONS 


20 

30 P% = &2000 

40 C 

50 .begin 

60 LDA #&25 \Put the number &25 into the accumulator 
70 CLC \Clear carry before the addition 

80 ADC #830 \Add the number &30 to the contents of the accumulator 
90 STA &72 \Store the result in memory location &72 
100 RTS 

110 ] 

120 

130 REM Test routine 

140 

150 CALL begin 

160 


170 REM Print out result 
180 PRINT "Contents of location &72 = &" ; ~?&72 


Test run 
>RUN 


Contents of location &72 = &55 


Program 2.4 
Program 2.4. 
SAQ 3 
Repeat Program 2.4 with the following numbers in lines 60 and 80. 
(a) 16 and 0 (b) &40 and &30 (c) &40 and &FO 
SAQ 4 
Write a program to store the numbers &30 and &25 in memory locations 
&70 and &71; take the numbers from those locations and add them 


together; store the result in &72. Check your program by assembling 
and calling it. 


2.7 Subtraction 


Provided that we avoid the problem of what happens when the result is 
negative, subtraction is almost identical to addition. The statement 





subtracts whatever follows it from the current contents of the 
accumulator. As with ADC, we'll consider two cases at this stage. 
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SBC #&30 means subtract the number &30 from the current 
contents of the accumulator. 


SBC &70 means subtract the contents of &70 from the current 
contents of the accumulator. 


The steps involved in carrying out SBC &70 are shown in Figure 2.6. 


MEMORY 





Figure 2.6 Action of SBC &70 


The steps are: 


O Step 1 The first number is already in the accumulator. 
O Step 2 Copy the number in memory location &70 into the ALU. 
O Step 3 Subtract the two numbers with a borrow if necessary. 


O Step 4 Copy the result back into the accumulator. 
Again, as with ADC, the result is left in the accumulator. 


Setting the carry flag 

With ADC we had to clear the carry flag (i.e. make it 0) before adding 
With SBC we have to set the carry flag (i.e. make it 1) before we use 
SBC. This is done with SEC. 

(Note: 6502 subtraction using the SBC command works differently from 
subtraction commands in many other microprocessor languages). 





We shall leave the explanation of why this is necessary, for a short 
while, and use SEC according to this rule. The following program is a 
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simple subtraction program to subtract the contents of location &70 
from the number &38. 


10 
20 
30 
40 
50 
60 
70 
80 


90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


Test run 


>RUN 
2000 
2000 


REM SUBTRACTION 


P% = &2000 
C 
-Start 


LDA #838 \Put the number &38 into the accumulator 

SEC \Set the carry flag 

SBC &70 \Subtract the contents of memory location &70 
from the accumulator 

STA &71 \Store the result in memory location &71 


RTS 
] 


REM Test routine 


REM Test data 
2870 = &14 


CALL start 


REM Print out result 
PRINT "Contents of location &71 = &" ; ~2&71 


»Start 


2000 Ad 38 LDA #838 


2002 
2003 


38 SEC 
E5 70 SBC &70 


2005 85 71 STA &71 


2007 


Contents of location &71 


60 RTS 


\Put the number &38 into the accumulator 

\Set the carry flag 

\Subtract the contents of memory location 
&70 from the accumulator 

\Store the result in memory location &71 


= Ben Program 2.5 


Set the contents of &71 to 0 and put a number of your choice into 


&70. Then RUN Program 2.5. 


SAQ 5 


Write a program to subtract the number in memory location &71 from 
the number in memory location &70. Store the result in a location &72. 
Put suitable numbers (i.e. between &0 and &FF and with the number in 
location &70 greater or equal to that in &71) in the first two locations 
and RUN and CALL your program. 
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2.8 Adding larger numbers 
Program 2.6 is a typical program for adding two one byte numbers: 


10 REM ADD TWO NUMBERS 

20 

30 DIM 2%50 

40 PX = 2% 

50 C 

60 .add 

70 LDA &70 \Put the first number in the accumulator 

80 CLC \Clear the carry flag 

90 ADC &71 \Add the second number to the number in the 
accumulator 

100 STA &72 \Store the result in memory location &72 

110 RTS 

120 J 

130 

140 REM Test routine 

150 

160 INPUT "Enter first number (decimal) " first 

170 INPUT "Enter second number (decimal) " second 

180 

190 27870 = first 

200 7&71 = second 

210 

220 CALL add 

230 

240 REM Print out result 

250 PRINT "Contents of Location &72 = &" ; ~2&72 


>RUN 
Enter first number (decimal) 45 
Enter second number (decimal) 12 


Contents of location &72 = &39 5 igi 
Program 2.6 


If you use this program to add together different numbers, some results 
look right whilst others do not e.g. 


&70 (first number) &23 &D5 &F4 
&71 (second number) &45 &34 &23 
&72 (result) &68 =&9 &17 


The first answer is correct (&23 + &45 = &68) but what about the other 
two? 


SAQ 6 
Why are the other two answers wrong? How could we make them 
correct? 
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Clearly, then, Program 2.6 is of limited use. It is only safe to use as it 
stands provided we are certain that the answer will not exceed &FF 
(255). If the answer exceeds that value, then the carry will be lost. If we 
want to add numbers in circumstances where the answer could exceed 
&FF then we need a better program. 

Before we develop that program, we must consider how the computer 
will store these larger numbers. Any number larger than &FF will 
require more than 8 bits. We can’t store, say, 343 in &70. The solution is 
to store the numbers as two bytes (or three or more for even larger 
numbers). If we store all our numbers as two bytes, each consisting of a 
low-byte and a high-byte then the format will be: 


15 141312111098 76543210 


PLETE TT Tey Cer 


high-byte low-byte 
8 bits 8 bits 


The smallest (positive) number that can be stored in this format is 


0000000000000000 = 0. 


The largest number is 
1111111111111111 = 2'®- 1 = 65535. 


If we are prepared to represent numbers as two bytes, we can deal with 
quite large numbers. But the cost of this is that each number requires 
twice as much memory and we need more complicated programming to 
handle the numbers. 


SAQ 7 
How would you store these numbers in memory if all numbers to be 
stored will use two bytes? (Use memory locations &70 and &71.) 


(a) &F3A2 (b) &F200 (c) &32 


Two-byte numbers 


In 6502 machine code programs, two-byte numbers are always stored 


with the low-byte in the first (lower) memory location and the 
high-byte in the memory location above it. 
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Consider what happens when you add two two-byte numbers. There 
are two cases that can arise: 


High Low High Low 

byte byte byte byte 
(a) &2E D5 (b) &25 10 

&10 61 &13 4F 
SAQ 8 


What are the answers to these two problems and what is the difference 
between them? 


We have now established that a carry can arise between the low- and 
high-byte additions. Why should this matter? It matters because the 
accumulator is only 1 byte long, so the two two-byte numbers have to 
be added byte by byte: first add the two low-bytes to each other; then 
add the two high-bytes to each other. But, if we are not careful, we will 
lose the carry. 


Fortunately the 6502 helps us here since it looks after the carry. All we 
have to do is to not use CLC before the high-byte addition. This is 
illustrated in the flowchart for two-byte addition shown in Figure 2.7. 
(Remember that ADC means ‘Add with Carry’). 









O 
O 
O 
O 
O 
0 
O 


Load accumulator with lew-byte of first number 















cleared for 
this | 
addition 





Carry is not 


Figure 2.7 Adding two two-byte numbers 
SAQ 9 


Fill in the boxes at the side of Figure 2.7 with the hex numbers resulting 
from each operation for the addition of &2ED5 and &1061. 


Program to add two two-byte numbers 
We can now use Figure 2.7 to develop a program. The numbers will be 
stored as in Figure 2.8. 
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First number 


Second number 


MEMORY 





&70 

&71 

: &72 

a Cea &73 
&74 
resu t: ig chute &75 


The program for two-byte addition is shown in Program 2.7. 


10 
20 
30 
40 
50 
60 
70 
80 
90 


REM ADDING TWO-BYTE NUMBERS 


DIM Z%50 

PZ = 2% 

C 

.two_byte_add 

LDA &70 \Load low-byte of first number into accumulator 


CLE \Clear carry for low-byte addition 
ADC &72 \Add low-byte of second number to contents of 
accumulator 


100 STA &74 \Store low-byte of result 

110 LDA &71 \Load high-byte of first number into accumulator 

120 ADC &73 \Add high-byte of second number, plus any carry, 

to contents of accumulator 

130 STA &75 \Store high-byte of result 

140 RTS 

150 J 

160 , 

170 REM Test routine 

180 

190 REM Enter test data 

200 7870 = &D5 

210 27871 = &2E 

220 2?&72 = &61 

230 7&73 = &10 

240 

250 CALL two_byte_add 

260 

270 REM Print out result 

280 PRINT "Contents of location &74 (= low-byte) = &" ; ~?8&74 

290 PRINT “Contents of location &75 (= high-byte) = &" ; 77875 
Program 2.7 

Test run 
>RUN 


Contents of location &74 (= Low-byte) = &36 
Contents of location &75 (= high-byte) = &2F 
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SAQ 10 

Confirm that the answer is correct for the above run by doing the sum 
on paper. 

We have now shown how CLC works and why it needs clearing before 
some additions and leaving alone before others. If CLC is needed before 
an addition, where you put the CLC is up to you as long as it appears 
before the addition and after anything else that could affect it. We 
believe that programs are clearest if the CLC comes immediately before 
the relevant ADC statement and that is the convention we shall use. 


This can be summarised as follows: 


CLC 


Use CLC before an addition with ADC into which any carry 


must not be added. 


Omit CLC before an addition with ADC into which any carry 
must be added. 





2.9 Subtracting two-byte numbers 


You have probably guessed by now what we have to do in two-byte 
subtraction. The problem to overcome is that we could have a borrow 
between the low and high bytes. Just as the 6502 took care of the carry 
in two-byte addition, so it takes care of the borrow in two-byte 
subtraction. All we have to do is to not set the carry with SEC before the 
high-byte subtraction. This is probably easier to understand by reading 
SEC as ‘clear the borrow’. 

SAQ 11 

Modify Program 2.7 to make it subtract two two-byte numbers. Run and 
check that your program correctly subtracts &28A3 from &5D2A. 
Repeat for &C47B and &93. 

SAQ 12 

Modify your answer to SAQ 11 to subtract a one-byte number from a 


two-byte number. Check that your program works by subtracting &3A 
from &8CF5. 


And finally, a reminder about using SEC in subtractions. 
SEC 


Use SEC before a subtraction with SBC which should not include any 
borrow. 


Omit SEC before a subtraction with SBC which should include any 
borrow. 
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2.10 The program counter 


Now that we have run and assembled some machine code programs, we 
can take a brief look at the ‘program counter’. This is one of the six 6502 
registers and is used in all 6502 operations. It-is mentioned here not 
because of any special connection with addition and subtraction but 
because you now have some material on which to observe its activities. 


The program counter always contains the ‘address’ (i.e. position in 
memory) of the next instruction to be executed. Thus if you look at the 
assembled version of Program 2.5 you can see, for example: 


2000 A9 38 = LDA: #838 


This tells us that the assembler converted LDA #&38 into the machine 
code instruction A9 38 which it stored at &2000. When executing this 
instruction, the program counter would contain &2002, the address of 
the next instruction. 


If you look down the first column of the assembled program, you will 
see that different instructions require different amounts of memory. 
Thus LDA #838 used &2000 to &2001 (two bytes) and SEC used &2002 
(one byte). 


The assembler works this memory allocation out for you so we shall not 
be saying much more about the program counter in this course. 


P% 
During an assembly run on the BBC Micro, the variable P% contains the 
current value of the program counter. Hence the statement 


PR = 1h 


at entry to an assembly program. The program counter is loaded with 
the value at the memory location (Z%) which is the start of the 
assembly listing. 

P% must not be declared as ‘LOCAL’ to a procedure or subroutine 
containing your assembly language program. 


The decimal mode 

In this unit we have looked at the 6502 performing arithmetic 
calculations on binary numbers. The 6502 can be switched into a mode 
which allows it to operate on binary-coded decimal numbers but we 
have not described this feature in this course. 


Assignment B 


1. Write a program to add two three-byte numbers. Check that it works 
correctly by testing with suitable data. What is the largest number that 
can result from this program? 
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Objectives of Unit 2 
After studying this unit you should be able to: 


Identify the bit numbers in a binary number. 


O 
OO Use LDA to put a number into the accumulator (directly or from 
memory). 


Use # to indicate ‘a number follows’. 


oo 


Use [ 1 to indicate the start and end of an assembly language 
program. 


Use RTS to return to BASIC. 

Use DIM 2% to reserve memory space for an assembly program. 
Use P% to place an assembly program in reserved space. 

Use STA to store the contents of the accumulator. 

Assemble a program into machine code. 

CALL a machine code program. 

Use a label to indicate the start of a program. 

Insert comments into an assembly program. 

Use ADC with and without CLC as appropriate to add numbers. 
Use $BC with and without SEC as appropriate to subtract numbers. 
Write an addition program for two-byte numbers. 


BB Oo eo es oe 


Write a subtraction program for two-byte numbers. 


Answers to SAQs 


SAQ 1 

(a) &03 (b) &00 (c) &FF (d) You can’t load the accumulator with 
300 (&12C) since it is larger than 8 bits. Attempting to do so produces 
an error message (‘Byte’) from the assembler. (e) &00 (f) &08(g) &FF 
(h) Answer as for (d) 


SAQ 2 
10 REM LOAD AND STORE 


30 DIM 2%50 

40 PX = 2% 

50 C 

60 LDA &70 \Load the accumulator with contents of memory 
location &70 

70 STA &71 \Store the contents of the accumulator in 
memory location &71 

80 RTS 

90 ] 
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100 

110 REM Test routine 

120 

130 REM Test data r 
140 27&70 = &2D 

150 

160 CALL 2% 

170 

180 REM Print out result 


190 PRINT "Contents of location &71 = &" ; ~28&71 
Program 2.8 


Test run 


>RUN 
Contents of location &71 = &2D 


In effect, this program uses the accumulator to transfer the contents of 
one memory location to another memory location. 


SAQ 3 


Your results (in hex) should be: 


(a) &10 (b) &70 (c) &30 This last result is ‘correct’ in one sense. 
The addition was &40 + &FO = &130. Since the accumulator can only 
hold one one-byte number, the ‘1’ in &130 was a carry out of the 
accumulator. This left &30 in the accumulator. 


SAQ 4 


10 REM ADDITION OF &30 and &25 

20 REM Not an efficient way of doing the job 

30 

40 DIM 2%50 

50 P% = 2% 

60 C 

70 «start 

80 LDA #8&30 \Put first number into accumulator 

90 STA &70 \Store first number in memory location &70 
100 LDA #8&25 \Put second number into accumulator 

110 STA &71 \Store second number in memory Location &71 
120 CLC \Prepare to add (clear carry) 

130 ADC &70 \Add first number to contents of accumulator 
140 STA &72 \Store the result in memory location &72 
150 RTS 

160 J 

170 

180 REM Test run 

190 
200 CALL start 
210 PRINT "Contents of location &72 after addition 

= &" 3 "2872 
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Test run 


>RUN 
Contents of location &72 after addition = &55 


Program 2.9 


This program is not a demonstration of how to add &30 to &25. What it 
does emphasise is that to put numbers into memory, we have to first 
put them into the accumulator (or one of the other registers that we will 
introduce later) and then store the contents of the accumulator in the 
chosen memory location. 


SAQ 5 


10 REM SUBTRACTION OF ONE-BYTE NUMBERS 

20 

30 DIM 7Z%50 

40 P% = 2% 

50 C 

60 «start 

70 LDA &70 \Put number from memory location &70 into 
accumulator 

80 SEC \Set carry flag before subtraction 

90 SBC &71 \Subtract number in memory location &71 from 
contents of accumulator 

100 STA &72 \Store the result in memory location &72 

110 RTS 

120 ] 

130 

140 REM Test run 

150 

160 REM Test data 

170 7&70 = &9E 

180 7871 = &1F 

190 

200 CALL start 

210 

220 PRINT "Contents of Location &72 = &" ; ~?&72 


Program 2.10 
Test run 


>RUN 
Contents of location &72 = &7F 


50 


Test run 


>RUN 
Contents of location &72 = &7F 


Program 2.10 
SAQ 6 
In both cases, the answer exceeds &FF and a carry occurs. The carry is 


lost in this program so the number in the accumulator is &100 short of 
the correct answer i.e. 


&D5 + &34 = &109 


lost carry = &100 
balance = &9 (left in accumulator) 
SAQ 7 
MEMORY 
F3 &71 
(b) | =—hooS—=s}C (sO 
&71 
(c) a) ee ee: 7) 
[| = oot} 


Even though &32 only requires one byte, it has to be stored as &0032 to 
fit two bytes. A program using two-byte numbers must store all 
numbers as two bytes even though some numbers will be less than 
&100. 


SAQ 8 
(a) &3F36 (b) &385F 


The difference between the two cases is that (a) generates a carry 
between the low- and high-byte additions whereas (b) does not. 


SAQ 9 
&D5 in accumulator 
&36 in accumulator (the carry is in the carry flag) 
&36 in memory 
&2E in accumulator 
&3F in accumulator (&2E + &10 + carry) 





SAQ 10 
&2ED5 
+ &1061 
&3F36 
high-byte = &3F 7 XK low-byte = &36 
= contents of &75 = contents of &74 
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SAQ 11 


10 
20 
30 
40 
50 
60 
70 


80 
90 


100 
110 


120 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


280 


Test run (first case) 


>RUN 


REM SUBTRACTION OF TWO-BYTE NUMBERS 


DIM 
P% = 
if 

.sub 
LDA 


SEC 
SBC 


STA 
LDA 


SBC 
STA 
RTS 
] 


REM 


REM Test data 


7&70 
2871 
7872 
2873 


CALL 


PRIN 
“287 
PRIN 
“287 


2450 
zk 


22 


&70 


&72 


&74 
&71 


&73 


&75 


Test run 


= &2A 
&5D 
&A3 
&28 


sub_2 


T "Contents of location &74 (result low-byte) = &" ; 


4 


T "Contents of location &75 (result high-byte) = &" ; 


5 


\Load low-byte of first number into 
accumulator 

\Set carry for low-byte subtraction 
\Subtract low-byte of second number from 
accumulator 

\Store low-byte of result 

\Load high-byte of first number into 
accumulator 

\Subtract high-byte of second number from 
accumulator 

\Store high-byte of result 


’ 


Program 2.11 


Contents of location &74 (result low-byte) = &87 
Contents of location &75 (result high-byte) = &34 


Test run (second case) 
Set the test data in lines 200 to 230 to ?&70 = &7B, ?&71 = &C4, ?&72 = 


&93 and ?&73 = 0 (don’t forget that although &93 is a one byte number, 
it still has to be entered as the two-byte number &0093). You should 
find that, after running Program 2.11, &74 contains &E8 and &75 


contains &C3. 
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SAQ 12 


10 
20 
30 
40 
50 
60 
70 


80 
90 


100 
110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


270 


Test run 
>RUN 


REM SUBTRACTING ONE BYTE FROM TWO BYTES 


DIM 2%50 i 

PR = 1% 

C 

-sub_2 

LDA &70 \Load low-byte of first number into 
accumulator 

SEC \Set carry for low-byte subtraction 

SBC &72 \Subtract low-byte of second number from 
accumulator 

STA &74 \Store low-byte of result 

LDA &71 \Load high-byte of first number into 
accumulator 

SBC #0 \Subtract 0 as high-byte of second number 

STA &75 \Store high-byte of result 

RTS 

J 

REM Test run 


REM Test data 


2870 = &F5 
27871 = &8C 
2872 = &3A 
CALL sub_2 


PRINT "Contents of location &74 (result low-byte) = &" ; 
“2874 
PRINT "Contents of location &75 (result high-byte) = &" ; 


2875 Program 2.12 


Contents of location &74 (result low-byte) = &BB 
Contents of location &75 (result high-byte) = &8&C 
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UNIT 3 
Jumps, loops and branches 


3.1 
3.2 
3.3 
3.4 
3.5 
3.6 
3.7 
3.8 
3.9 
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Flags 

The zero flag 
Conditional branches 1 
The assembly process and OPT 
Conditional branches 2 
Subroutines 

The X and Y registers 
Unconditional jumps 
Compare 

Assignment C 
Objectives of Unit 3 
Answers to SAQs 


3.1 Flags 


In Figure 2.1 of Unit 2 we showed the six registers of the 6502. One of 
these was simply labelled ‘flags’. We will now take a closer look at this 
register and at the action of some of the flags, The register is an 8-bit 
register in which each bit provides information about what is 
happening in the microprocessor. The register is shown in more detail 
in Figure 3.1. 


Negative flag Zero flag 


| Carry flag 
N V = BODidiZz EC 


Figure 3.1 The processor status (flags) register 


In this unit we are going to need the carry flag (C) and the zero flag (Z). 
We shall also touch on the negative flag (N). Since the other flags are 
not needed at this stage, we shall not go into any detail about them. 


Certain flags are affected by certain 6502 instructions. However, some 
instructions have no effect on the flags at all. Even though you have not 
met many instructions, we will list those instructions which have no 
effect on any of the flags. (The list will be useful for reference later). 


The branch instructions 
BCC 
BCS 
BEQ 
BMI 
BNE 
BPL 
BVC 
BVS 


The jump instructions 
JMP 
JSR 


The ‘do nothing’ instruction 
NOP 


Return from subroutine 
RTS 
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The store instructions 
STA 
STX 
STY 


And some rather special instructions 
PHA 
PHP 
rXS 


The carry flag in addition 

We have — in effect — already noted the action of the carry flag. If an 
addition generates a carry (i.e. if the result is greater than &FF) then the 
carry flag is set to 1 by the microprocessor. The statement CLC sets the 
carry flag to 0. 


CLC means CLear Carry 


It sets the carry flag to 0 





We can now deal with the use of CLC in more detail than in Unit 2. 
When you are in the middle of a program you might not know what 
value the carry flag has. If it is 1, then ADC will add the number in the 
accumulator to the number specified in the ADC statement plus 1 i.e. 
the carry. Hence the name ‘Add with carry’. You can think of it as being 
like ‘Add with 1 if the carry flag is 1’. But if you are adding two 
low-bytes, there should not be a carry in the addition. So you precede 
ADC low-byte addition with CLC to make sure that the carry flag is 0. In 
Program 2.7 we had: 


10 REM ADDITION OF TWO-BYTE NUMBERS 


20 

30 DIM 2%50 

40 PX = 2% 

50 C 

60 .two_byte_add 

70 LDA &70 \Load low-byte of first number into 
accumulator 

80 CLC \Clear carry for low-byte addition 

90 ADC &72 \Add low-byte of second number to contents 
of the accumulator 

etc. 


The CLC at line 80 made the carry flag equal to 0 so that no carry would 
be added into the low-byte addition. But the result of this addition 
might generate a carry to add into the high-byte addition. If it does, the 
carry flag will go to 1 at line 90. We must not clear this value since it 
will be added into the high-byte addition by the 6502 in the next part of 
the program. 
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100 STA &74 \Store low-byte of result 


110 LDA &71 \Load high-byte of first number into 
accumulator 

120 ADC &73 \Add high-byte of second number plus 
any carry to accumulator 

130 STA &75 \Store high-byte of result 

140 RTS 

150 J 

SAQ 1 


(a) What would be the effect of not clearing the carry flag before the 
start of the two-byte addition program? 


(b) What would be the effect of clearing the carry flag between lines 90 
and 100 of the two-byte addition program? 


The carry flag in subtraction 

The carry flag is also affected by SBC and takes the complement of the 
carry flag away from the accumulator. So if the carry is 1, 0 is taken off 
the accumulator. If the carry is 0, 1 is taken off the accumulator. This 
effects a borrow whenever it is required. 


So, SEC (SEt Carry to 1) is needed at the start of a subtraction to prevent 
a borrow taking place. SEC is not used between a low- and high-byte 
subtraction since a borrow must be allowed to happen if it is needed as 
a result of the low-byte subtraction. 


SAQ 2 
In Program 3.1, what would be the value of the carry flag at lines 80 and 
90 when the numbers being subtracted are: 


(a) &9F53 - &2561 (b) &4DA2 - &1077? 

10 REM SUBTRACTION 

20 

30 DIM 2%50 

40 PX = 2% 

50 C 

60 .sub2byte 

70 LDA &70 \Low-byte of first number into accumulator 

80 SEC \Set carry for low-byte subtraction 

90 SBC &72 \Subtract low-byte of second number from 
accumulator 

100 STA &74 \Store low-byte of result 

110 LDA &71 \High-byte of first number into accumulator 

120 SBC &73 \Subtract high-byte of second number from 
accumulator 

130 STA &75 \Store high-byte of result 

140 RTS 

150 J 

160 END 


Program 3.1 
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3.2 The zero flag 
The zero flag —» 


You have seen how to set or clear the carry flag. The zero flag is 
different because there is no specific instruction which will set or clear 
it. The zero flag is set and cleared automatically by the 6502. Its job is 
to tell you whether or not the result of the last operation that could 
have affected the Z flag was 0 or not. (Thirty of the fifty-six 6502 
instructions affect the Z flag — see Appendix 2 for details). 


Z = 1 means the last result was 0 


Z = 0 means the last result was not 0 





Be careful about Z being 0 when the result was not zero. Flags tell us 


whether a condition is true or not. In microprocessor logic, 1 = ‘truc’ 
and 0 = ‘false’. The condition we are testing is ‘was the result 0?’. If it 
was (i.e. if true) then Z = 1 to indicate ‘true’. 


What value will Z be at the end of each of the following routines? 
(a) LDA #&00 


(b) LDA #&8A 
SEC 
SBC #&53 


(c) LDA #&8A 
SEC 
SBC #&8A 


3.3 Conditional branches 1 


We can now introduce the first two branching statements for the 6502. 
You will have met the idea of a branch in BASIC and be aware that 
there are two types of branch: 


Conditional branch: IF... THEN (line number) 
Unconditional branch: GOTO (line number) 


Both types of branch are available in 6502 assembly language and there 
are eight conditional branches. Why eight when one is good enough in 
BASIC? The reason is that the BASIC conditional branch, IF ... ‘THIEN 
..., allows us to put any syntactically correct condition between IF and 
THEN so the one conditional branch statement can evaluate any valid 
condition that we require. But assembly language branches can only 
take place according to the settings of the various flags. 
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Two conditional branch statements depend on the state of the zero flag: 


BEQ Branch if EQual to zero (i.e. if Z = 1) 


BNE Branch if Not Equal to zero (Le. if Z = 0) 





The branch will cause the program to continue at some other 
instruction in the program. You can therefore branch to a memory 
location (as listed in the program counter line) or to a label in the 
program. Branching to a memory location is asking for trouble since 
you may get the branch wrong. We shall concentrate on branching to 
labels. First we shall look at what happens as soon as we introduce a 
very simple branch into a program. 


The program we are going to look at examines the contents of &70. If the 
content of the address &70 is 0 then the run ends. If it does not contain 
zero then the program puts the number &FF into location &71. A 
flowchart for this is shown in Figure 3.2. 





Putnumber from & 70 
info accumulator 







Put & FF into accumulator 


Store accumulator in 8 71 


Figure 3.2 Flowchart showing use of BEQ 
Turning this into a program produces Program 3.2. 


10 REM BEQ@ 

20 

30 Px = &2000 

40 C 

50 .start 

60 LDA #0 

70 STA &71 \Clear indicator location at start 

80 LDA &70 \Put contents of &70 into accumulator 
90 BEQ exit \End run if location &70 contained zero 
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100 LDA #&FF \Put the number &FF into accumulator as 
branch indicator 

110 STA &71 \Store indicator at memory location &71 

120 .exit 

130 RTS 

140 J 

150 END 


Program 3.2 
The branch occurs at line 90 with the statement 
BEQ exit. 


This tells the program to branch to the statement immediately 
following the label ‘exit’ if the result of the last operation was zero. 
Since the previous operation (line 80) was 


LDA &70 


the branch tests whether or not the number in the accumulator is 0. As 
we loaded the accumulator from the memory location &70, we are, in 
effect, testing the contents of &70. 


Type and run Program 3.2. 


The result is a bit disappointing. The program looks alright but the 
computer tells us that it doesn’t like the program and responds with the 
message ‘No such variable at line 90’. 


>RUN 

2000 

2000 «Start 

2000 a9 00 LDA #0 

2002 85 71 STA &71 \Clear indicator location at start 
2004 AS 70 LDA &70 \Put contents of &70 into accumulator 


No such variable at Line 90 


To explain why this has happened we must break off and look at what 
the assembler is doing. We then need to introduce a new statement, 
OPT. 


3.4 The assembly process and OPT 


When we type RUN, the computer assembles a machine code listing of 
the assembly language program that we have written. The computer 
cannot execute an assembly listing. Assembly language is a means by 
which we can write machine code programs without having to 
understand machine code. So the actual program that is executed is 
machine code. [f you look at the machine code listing of any of the 
programs we have developed so far you will see that some machine 
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code statements are made up of two bytes: an operation and an address 
e.g. 


memory location —— 
(address) | 
AS 70 


load the accumulator with 
the number in the memory 
location that follows 


number 
A9 2A 


load the accumulator with 
the number that follows 


Now consider the problem that the computer has when it reaches line 
90 of Program 3.2 during the assembly run. The program has to branch 
to ‘exit’ but the line that will define the location of ‘exit’ has not vet 
been assembled. That is why we get the message ‘No such variable at 
line 90’. 


To overcome this, we have to assemble the program twice. On the first 
run, we switch off the computer's error checking system so that it will 
ignore problems of the type that it is meeting at line 90. To turn the 
error checking system off we use the statement OPT 1. Program 3.3 
shows Program 3.2 with the addition of OPT 1. You can see that now 
that we have added OPT 1 the assembly goes smoothly with no 
reporting of errors. 

10 REM BEQ 

20 

30 P% = &2000 

40 C 

45 OPT 1 

50 .start 

60 LDA #0 

70 STA &71 \Clear indicator location at start 

80 LDA &70 \Put contents of &70 into accumulator 

90 BEG exit \End run if location &70 contained zero 

100 LDA #&FF \Put the number &FF into accumulator as 

branch indicator 

110 STA &71 \Store indicator at memory location &71 

120 .exit 

130 RTS 

140 J 

150 END 
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Test run 


>RUN 

2000 

2000 OPT 1 

2000 »Start 

2000 A9 00 LDA #0 

2002 85 71 STA &71 \Clear indicator location at start 
2004 AS 70 LDA &70 \Put contents of &70 into accumulator 
2006 FO FE BEQ exit \End run if location &70 contained 


zero 
2008 AY FF LDA #8&FF \Put the number &FF into accumulator 
as branch indicator 


200A 85 71 STA &71 \Store indicator at memory location 
\&71 

200C -exit 

200C 60 RTS 


Program 3.3 


That looks fine (except for the incorrect address for ‘BEQ exit’ which 
has assembled as 2006 FO FE — more about that later) but suppose there 
is still an error in the program. How are we to know it is there? As 
things stand in Program 3.3 we would not be able to detect errors so we 
run the assembly process again with the error reporting turned on. ‘I’ 
do this we use OPT 3. To get two runs with different values of OPT we 
use a FOR ... NEXT loop around the assembly program and use ‘OP! 
pass’ where ‘pass’ is now a variable. If we use a loop 


FOR pass = 1 TO 3 STEP 2 


NEXT pass 


this will ensure that on the first pass through the loop ‘pass’ equals 1 in 
order to turn off the error listing. On the second pass, ‘pass’ equals 3 
which turns the error listing on again. This is called ‘two-pass 
assembly’. 


Program 3.4 shows Program 3.3 with the FOR ... NEXT loop inserted to 
execute the two-pass assembly. 


10 REM BEQ 2 

20 

25 FOR pass = 1 TO 3 STEP 2 
30 P% = &2000 
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40 C 
45 OPT pass 
50 -Start 
60 LDA #0 . 
70 STA &71 \Clear indicator location at start 
80 LDA &70 \Put contents of &70 into accumulator 
90 BEQ exit \End run if location &70 contained zero 
100 LDA #8&FF \Put the number &FF into accumulator as 
branch indicator 
110 STA &71 \Store indicator at memory location &71 
120 exit 
130 RTS 
140 J 
145 NEXT pass 
150 END 
Test run 
>RUN 
2000 
2000 OPT pass 
2000 -Start 
2000 a9 00 LDA #0 
2002 85 71 STA &71 \Clear indicator location at start 
2004 AS 70 LDA &70 \Put contents of &70 into accumulator 
2006 FO FE BEQ@ exit \End run if location &70 contained 
zero 
2008 AY FF LDA #&FF \Put the number &FF into accumulator 
as branch indicator 
200A 85 71 STA &71 \Store indicator at memory location 
&71 
200C exit 
200c 60 RTS 
2000 
2000 OPT pass 
2000 -start 
2000 A9 00 LDA #0 
2002 85 71 STA &71 \Clear indicator location at start 
2004 AS 70 LDA &70 \Put contents of &70 into accumulator 
2006 FO 04 BEQ@ exit \End run if location &70 contained 
zero 
2008 AQ FF LDA #&FF \Put the number &FF into accumulator 
as branch indicator 
200A 85 71 STA &71 \Store indicator at memory location 
&71 
200C -exit 
200C 60 RTS 


Program 3.4 
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If you look at the first pass, you will see that the assembly statement 
BEQ exit 


has been assembled into machine code as 


FO FE. 


But in the second listing, ‘BEQ exit’ has been assembled as 


FO 04 


‘FO’ is machine code for BEQ. On the first pass the assembler couldn't 
know how far the branch to ‘exit’ should be, so it inserted a default 
jump of FE. On the second pass, the assembler had found ‘exit’ and was 
able to calculate the correct jump and FE was changed to ‘04’. 


The idea of a relative branch 

Let's take a closer look at why ‘BEQ exit’ has been assembled as F0 04. 
All assembly language branches are what are called ‘relative branches’ 
That is, the branch instruction says ‘branch forward so many bytes’ or 
‘branch backwards so many bytes’. In the instruction 


FO 04 


the 04 means ‘forward 4 bytes’. It does not, however, mean ‘forward 
from where we are’ but ‘forward from where the next instruction is’. 
The next instruction is at &2004. If we go forward a further 4 bytes, we 
get to &2008 which is ‘exit’. 


On the face of it, forward and backward branches look the same: but the 
number of bytes of branch tell you whether a branch is forward or 
backwards: 


Bytes in branch statement Type of branch 
&00 - &7F Forward 
&80 - &FF Backward 


So FO 57 is a forward branch of &57 bytes and FO C7 is a backward 
branch of &57 bytes (calculated by the sum &FF - &C7). If that seems a 
little complicated, don’t worry — use labels and let the assembler work 
it out! 


You need to remember that the maximum length of a forward or 
backward branch is 127 bytes. If you attempt a longer branch than this, 
you will get an ‘Out of range’ error message when you try to assemble 
the program. We will look at this problem in more detail in Unit 4. 


SAQ 4 

Program 3.4 should branch at line 70 if the contents of the accumulator 
are equal to 0. Test whether the program works by using suitable 
numbers in &70. 


64 


The other values of OPT 

We have used OPT 1 and OPT 3 but two other OPT statements are 
available: OPT 0 and OPT 2. The effect of all the OPT statements is as 
follows: 


OPT 0 Suppress error messages and suppress the program 
listing 
OPT 1 Suppress error messages but list the program 


OPT 2 Report errors but suppress program listing 
OPT 3 Report errors and list the program 


OPT 0 

OPT 0 deserves a special mention since it is important in final versions 
of programs. Once you have a working, bug free, program, you want to 
use it but not to see it being assembled on the screen. Thus the finished 
working assembly subroutine would go into a BASIC program like this: 


10 ces 

20 ... 

30 sex Assembly routine near top of program. 
35 oe Assembled at start of run ready for 

calling. 

40 FOR pass = 1 T0 2 

50 Cort 0 Suppresses listing and error messages 
60 ces 

70 cae 

80 wes 

90 see 
100 J 

110 NEXT pass Program continues here 
120 ... CALL above routine when needed 
130 ‘siaa 
TAO! veieu 
Another technique is to write: 

IO ces 

20 eciers 

30 ‘cise Assembly routine near top of program. 
35 opt = 3 Assembled at start of run ready for 

calling. 


40 FOR pass = 0 TO opt STEP opt 

50 COPT opt 

60: aise 

70 woe 

80: .c.0:0 

90) sus 

100 J 

110 NEXT pass Program continues here 
120: jess CALL above routine when needed 
130 scx 

160) 200 
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Use the program as shown when developing and testing it. Then 
change line 35 to opt = 2 for routine use of the program. 

Note that the opening bracket and OPT are on the same line in the final 
version of a program. If you put them on different lines the assembler 
still outputs the first line of assembly listing to the screen. 


3.5 Conditional branches 2 


SAQ 5 

In section 3.3 we introduced BNE and BEQ. Programs 3.2, 3.3 and 3.4 
used BEQ. Rewrite Program 3.4 using BNE to perform the same test of 
the contents of &70 and test its working with suitable data. 
Altogether there are eight conditional branches. We shall now 
introduce two more. 


BCC Branch on Carry Clear (i.e. if Carry flag = 0) 


BCS Branch on Carry Set (i.e. if Carry flag = 1) 





These two additional branches test the value of the carry flag which 
you have already learnt to set and clear. One use of these branch 
instructions is to check whether the result of an addition exceeded 
&FF. This is how BCS is used in Program 3.5. If the answer to the 
addition is less than &FF then the carry flag will still be clear at line 130 
after the addition at line 110. In that case, the sum is stored in &72. But 
if the sum exceeds &FF, the carry flag will be set and the program will 
branch at line 130 to the instruction labelled ‘large’. This results in the 
sum (less the lost carry) being stored in &73. 


10 REM BCS 

20 

30 DIM 2%50 

40 FOR pass = O TO 3 STEP 3 

50 PX = 1% 

60 C 

70 OPT pass 

80 

90 start 

100 LDA &70 

110 CLC 

120 ADC &71 

130 BCS large \Will branch if result of addition i: RFI 

140 STA &72 \If sum <= &FF then store result in 
location &72 

150 RTS \Exits here if sum <=8FF 
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160 


170 -large 
180 STA &73 \Store result of addition (less lost carry) 
in &73 
190 
200 RTS \Exits here if sum >&FF 
210 ] 
210 NEXT pass 
220 
240 REM Test routine 
250 
260 7&72 = 0 
270 27873 = 0 
280 7870 = &18 
290 2&71 = &24 
300 
310 CALL start 
320 
330 PRINT "Contents of location &72 = &" ; “2972 
340 PRINT "Contents of location &73 = &" ; “9973 Seopa OS 
Test run 
>RUN 
Contents of location &72 = &3C 
Contents of location &73 = &0 
Program 3.5 


Load Program 3.5 and run as above. Then repeat with the following 
data in lines 260 to 290: ?&72 = 0, ?&73 = 0, ?&70 = &82 and ?&71 = 
&9B. This time you should find that &72 contains 0 and &73 contains 
&1D. 


These results confirm that the branch in line 130 is working correctly. 
In the first test, the sum is less than &100 so the carry is not set and the 
sum is stored in &72. In the second test, the correct sum is &11D but 
this sets the carry flag and leaves &1D in the accumulator. Because the 


carry flag is set, the program branches at line 100 and stores the result 
in &73. 


SAQ 6 


Rewrite Program 3.5 using BCC (Branch on Carry Clear) to branch to 
‘small’ if the sum is less than &100. 
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3.6 Subroutines 


Assembly language makes provision for subroutines in a very similar 
way to GOSUB in BASIC. The instruction JSR unconditionally transters 
program execution to a subroutine. 


JSR Jump to Subroutine 


The BBC Micro has some built-in subroutines to perform routine tasks 
which are tedious to program from scratch. Each has a starting location 
in the Micro’s memory at which it can be called. The designers have 
suggested a name for each routine but the subroutines cannot be called 
just by their names. We can, however, use the suggested names as 
labels for the memory locations at which the subroutines start. ‘Ile /irs! 
two subroutines that we shall introduce are: 


Name Begins at memory location 
OSWRCH &FFEE 
OSNEWL &FFE7 


(The locations &FFEE and &FFE7 are not the actual locations of the 
subroutines but contain addresses to re-direct the program to the actual 
locations.) 


The names may look odd but they are acronymns for the work they do: 


OSWRCH Operating System Write CHaracter 
This prints the character corresponding to the 
number in the accumulator. After printing, the 
contents of the accumulator are unchanged. 
OSNEWL Operating System NEW Line 
Produces a new line and carriage return. This leaves 
&D in the accumulator. 


(The equivalent subroutines will be available in other micros but called 
through different memory locations.) 


We will use these subroutines not only to demonstrate the use of JSR 
but also to enable us to ‘see’ what is in the accumulator. 


You can call a subroutine by an instruction such as JSR &FFEE (this 
would execute OSWRCH) but programs are much clearer if we use 
labels wherever we can. So we will label the memory location &FFEE as 
OSWRCH using BASIC as in line 30 of Program 3.6. Then we can 
execute the call with JSR OSWRCH. 


In Program 3.6 we have used JSR OSWRCH to transfer control of the 
program to the subroutine called through the memory location &FFEE. 
This subroutine prints the character in the accumulator (A). It does not 
print the number in the accumulator but the ASCII character associated 
with that number. The ASCII codes are listed in Appendix 1. 
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10 REM PRINTING 


20 

30 oswrch = &FFEE 
40 DIM 2%50 

50 P% = 1% 

60 C 

70 

80 .start 


90 LDA #&2A \Put '*' into the accumulator 
100 JSR oswrch \Print the character in the accumulator 


120 RTS 
130 J 


150 REM Test run 


170 CALL start Program 3.6 


Test run 


>RUN 
*> 


Test runs 
With LDA #&2A: 


>CALL start 
*> 


With LDA #&41: 


>CALL start 
A> 


In the first run, we loaded the accumulator with &2A (* in ASCII code). 
In the second run, we loaded it with &41 (‘A’ in ASCII code). Because 
each run uses a different version of one line of the program (line 50), we 
need to re-assemble the program between CALLs. 


It’s not spectacular, but that is the difference between a high-level 
language such as BASIC and low-level assembly language. The 
high-level language will print words, lines, tables, etc. with just a few 
commands. In assembly language, we have to print one character at a 
time. 


SAQ 7 
Write a program to test whether or not location &70 contains 0 or not. If 
it does, print *. If it doesn’t, print !. 
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3.7 The X and Y registers 


Any form of programming involves both decisions and repeated 
operations. In 6502 assembly language, we use the X and Y registers as 
counters for repeated operations. These registers do not behave in 
exactly the same way as the accumulator but two types of accumulator 
instruction have their equivalents for the X and Y registers. 


LDX LoaD the X register 
LDY LoaD the Y register 


STX STore the X register 
STY STore the Y register 





You can put numbers directly into these registers: 


LDX #&30 
LDY #55. 


Or you can load them from memory: 


LDX &70 
LDY &72. 


And you can store their contents in memory: 


STX &71 
STY &73. 


But what is specially useful about the X and Y registers is that you can 
increase or decrease their contents by 1 by using the statements: 


INcrement the X register by 1 
INcrement the Y register by 1 


DEcrement the X register by 1 
DEcrement the Y register by 1 





There are no corresponding commands to increment or decrement the 
accumulator. 


There are various other instructions which affect the X and Y registers. 
We shall mention four of the more straightforward ones, even though 
we don’t need them yet. 


TAX — Transfer Accumulator to X register 
TAY Transfer Accumulator to Y register 


TXA Transfer X register to Accumulator 
TYA Transfer Y register to Accumulator 
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‘Transfer’ is slightly misleading since these four instructions copy the 
contents of the first register into the second register. The contents of the 
first register remain unaltered. 


This now gives us the facilities we need for counting and, hence, loops. 


Program 3.6 printed a *. We shall now use the X register to print five *s. 
The program’s flowchart is shown in Figure 3.3. 





















Figure 3.3 Flowchart for printing 5 stars 


The program is Program 3.7. This uses a label in a new way: to 
represent a constant (i.e. a number). In line 30 we have written ‘star = 
ASC “*””, This makes the label ‘star’ the same as the number &2A (just 
as it does when we label memory locations). Then, in line 120, we have 
written ‘LDA #star’ which means ‘Load the accumulator with the 
number ‘star’. This is a useful device for making programs more 
readable. 


10 REM LOOP 

20 

30 star = ASC "x" 
40 oswrch = &FFEE 


50 DIM 2%50 

60 FOR pass = 0 TO 3 STEP 3 
70 =P% = 1% 

80 [ 

90 OPT pass 

100 

110 «Start 


120 LDA #star \Put '*' into accumulator (stays there 
throughout program) 
130 LOX #5 \Put 5 as counter into X 
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140 -print 


150 

160 JSR oswrch \Print the 's' 

170 DEX \Decrease counter by 1 

180 BNE print \Loop back if more '*'s to print (i.e. if X 
<> 0) 

190 

200 = RTS 

210 J 

220 NEXT pass 

230 

240 REM Test run 

250 


260 CALL start Program 3:7 


Test run 


>RUN 
kkKKKKD 


Type Program 3.7 and run it. Confirm that the output is *****>. Try 
adding these lines: 


45 osnewl = & FFE7 
and 
185 JSR osnewl. 


Then re-assemble the program and check that the output is now: 


D>kKKKK 
> 


By using the ‘New line and carriage return’ subroutine after the stars 
have been printed, we can bring the cursor onto a new line. 


SAQ 8 
Write a program to print a column of *s. The number of stars is to be 
found in the memory location &70 before the program is called. 


Program 3.14 (the answer to SAQ 8) is different from Program 3.7 in an 
important way. Some of the built-in subroutines affect the registers. In 
Program 3.7, we were using the A and X registers, neither of which is 
affected by OSWRCH. But in Program 3.15 we were using OSNEWL as 
well as OSWRCH. OSNEWL does not affect the X register but it does 
affect the A register, putting &D into it. That is why we loop back to line 
160 and re-load the accumulator at line 170. This shows that once you 
start using built-in routines, you have to remember to consider their 
effect on the registers. A summary of the main effects appears on pages 
456 — 457 of the User Guide. For more details, see Chapter 43 of the 
User Guide. : 
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Nested loops 


You will be familiar with nested FOR ... NEXT loops in BASIC. For 
example, Program 3.8 prints 


kkkke 
kkkkk 
kkk 


10 FOR X = 1 TO 3 

20 FOR Y = 1 T0 5 

30 PRINT "x"; 

40 NEXT Y 

50 PRINT 

SUMERT Program 3.8 
Since we have two counting registers in the 6502, we can nest loops in 
a very similar way. To produce the same output as Program 3.8, which 
was in BASIC, we need an assembly language routine such as the one 
illustrated in Figure 3.4. 



























New line and carriage return 
Decrement X by 1 





Figure 3.4 Nested loops flowchart 


Notice that Y has to be loaded with the number 5 for each of the three 
rows of stars. X is only loaded once. The program for nested loops is 
shown in Program 3.9. 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


240 


250 


260 
270 
280 
290 
300 
310 
320 
330 


REM NESTED LOOPS 


star = ASC "x" 
oswrch = &FFEE 
osnewl = &FFE7 


DIM 2%50 


FOR pass = 0 TO 3 STEP 3 


PX = 7% 
C 
OPT pass 


-stars 
LOX 3 


-f Ow 


LDA #star 
LDY #5 


«column 
JSR oswrch 
DEY 

BNE column 
JSR osnewl 


DEX 


BNE row 
RTS 

x 

NEXT pass 


REM Test run 


CALL stars 


\Put 'x' into A 
\Set up ¢ imr 


\Output ‘'*!' 

\0 rease smn inte 

\Loop back if row not completed 

\New line & carriage return at end of 
row 

\Oecrease row counter 

\Loop back if more rows to do (i.e. if 
X<>0) 


Program 3.9 


3.8 Unconditional jumps 


In this unit we have been able to re-direct programs by the use of 
branches and by the use of subroutines. |" addition to these laciiitios 
there is also an unconditional jump in 6502 assembly language 
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JMP JuMP (unconditional jump) 


You can jump to a memory location or to a label. Jumping to a label is 
the safest procedure since the assembler then works out the correct 
jump destination, avoiding programing mistakes over addresses. It also 
makes it easier to re-locate the program into another block of memory if 
that is needed later. We shall therefore stick to using: 


JMP label. 


The answer to SAQ 7 (Program 3.13) had two JSR OSWRCH and two 
RTS statements: at lines 180/190 and at lines 230/250. This is a little 
untidy so we shall insert an unconditional jump to re-direct the 
program to the JSR OSWRCH. But for this to work we need a label for 
the JSR OSWRCH. Let’s use the label ‘print’. The revised Program 3.13 
incorporating JMP is shown in Program 3.10. 


10 REM BRANCHING 
20 

30 star = ASC "x" 
40 pling = asc "!" 
50 oswrch = &FFEE 


60 DIM 2%50 

70 FOR pass = O TO 3 STEP 3 

80 PZ = 27% 

90 C 

100 OPT pass 

110 

120 -Start 

130 LDA &70 \Put contents of location &70 into A 


140 BNE not 
150 LDA #star \Put '*' into A as zero indicator 
160 JMP print 


170 

180 -not 

190 LDA #pling \Put '!' into A as not-zero indicator 
200 

210 eprint 

220 JSR oswrch \Print not-zero indicator 
230 

240 RTS 

250 J 

260 NEXT pass 

270 

280 REM Test run 

290 


300 CALL start 
Program 3.10 
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There is another jump instruction: 
JMP (xxxx) 


which is not the same as JMP xxxx. JMP (xxxx) is described in section 
4.6. 


3.9 Compare 


Three further instructions which affect the flags are the compare 
instructions. These are: 


CMP CoMPare with accumulator 


CPX  ComPare with X register 
CPY  ComPare with Y register 





Each is followed by a number or a memory location. None of the 
registers or the contents of any memory location referred to in the 
instruction is changed by a compare instruction. Only the flags change. 
We can summarise the flag changes in Table 3.1. 


Condition Effect on flag 

Zz Cc N 
Register < value 0 0 1* 
Register = value 1 1 0 
Register > value 0 1 0* 


*ignore when not using two's complement arithmetic 


Table 3.1 Effect of ‘compare’ instructions on the flags 


How the flags change 
The Z flag. This is the easiest to understand. If there is no difference 
between the two values the Z flag is set to 1 i.e. Z = 1. 


The C flag. As long as the result of compare is greater than or equal to 
zero, the C flag will be set to 1. But if the compare leads to a borrow, 
then the C flag will be set to 0. So when the value in the register (A, X, 
or Y) is less than the value compared to, the C flag is set to 0. 


The N flag. This flag’is set to 1 if the result of a comparison with two's 
complement signed numbers was negative. We introduced signed 
numbers in Unit 1 and, for the moment, we are limiting programs to 
unsigned numbers. We are only mentioning the effect of Compare on 
the N flag for the sake of completeness. 


Testing and branching 

A compare instruction would only appear in a program if a branch was 
to take place depending on the result of the comparison. (Compare 
instructions are therefore like BASIC’s ‘IF condition THEN line 
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number’). We have already met the tests for the C and Z flags and we 
now introduce the test for the N flag. 







BPL Branch on PLus (i.e. if N = 0) 
BMI Branch on Minus (i.e. if N = 1) 





Table 3.1 looks very neat and simple but it reveals a snag. A flag can 
have the same value under more than one of the conditions < = and >. 


SAQ 9 

Identify the three possible confusions which can arise from certain 
flags having the same value under different conditions. Check your 
answers carefully before going on to SAQ 10. 


SAQ 10 
Which tests would you use to cause a branch on the following 
conditions? 


Condition Signed numbers Unsigned numbers 


Register < value 
Register = value 
Register > value 


You should have found that none of the branch instructions work for 
‘register > value’ in either the signed or unsigned case. There seems to 
be no way of distinguishing this condition from one of the others. The 
solution is to use two tests in each case. The first test will decide 
whether or not to apply the second test. 


SAQ 11 
Which two tests together will cause a branch on ‘register > value’ for (a) 
signed numbers and (b) unsigned numbers? 


Finally, we might want to branch if: 


register <= value 
or 
register >= value. 


SAQ 12 
Which single test will branch to ‘away’ on ‘register >= value’ for (a) 
signed numbers and (b) unsigned numbers? 


SAQ 13 

Which two tests will branch on ‘register <= value’ for (a) signed 
numbers and (b) unsigned numbers? Hint: the successful branch will 
take place on the first or after both. 
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Compare summary 

Compare is a complicated routine and not one that you would expect to 
remember in detail. So, when you need to use compare, refer to the 
following table. 


Condition Test 

Signed Nos Unsigned Nos 
Register < value BMI away BCC away 
Register = value BEQ away BEQ away 
Register > value BEQ here BEQ here 

BPL away BCS away 
Register > =value BPL away BCS away 
Register < =value BMI away BCC away 

BEQ away BEQ away 


It is worth noting that when you need to use two tests, it is best to test 
the more likely event first e.g. 


BCC 
BEQ 


and not 


BEQ 
BCC 


Use of BPL and BMI in loops of less than &80 
If you have a loop which is to be repeated less than &80 times and 
where you wish to branch out after the zero case has been executed, 
then BPL or BMI is the simplest test to use. For example, the following 
loop will be repeated six times up to and including the case when X is 
0: 

\ Counting down to zero 

Lox # 5 

LDA start, x 

DEX 

BPL loop 


Assignment C 


1. One way of doing multiplication is by repeated addition. Write a 
program that multiplies a number in location &70 by a number in 
location &71 by adding the number in location &70 to itself repeatedly. 
Place the answer in location &72. Run and call your program, testing its 
operation on suitable data (i.e. positive numbers, the product of which 
will not exceed the capacity of your program). 


2. If the program in (1) is to produce correct answers, the result must 
not exceed &FF. The multiplier and multiplicand must each not exceed 
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&OF. Re-write your program so that (a) it checks that neither multiplier 
nor multiplicand exceeds &OF and (b) if either does exceed &OF, &FF is 
placed in location &72 and the program exits without performing the 
multiplication. 

Objectives of Unit 3 

After studying this Unit you should be able to: 

O State the value of the carry flag after a given series of operations. 
O State the value of the zero flag after a given series of operations. 

O Use BEQ and BNE to branch according to the value of the zero flag. 
Oo 


Use OPT and the two-pass assembly process to assemble programs 
with forward branches. 


Use BCC and BCS to branch according to the value of the carry flag. 
Use JSR OSWRCH to print the character in the accumulator. 

Use JSR OSNEWL to produce a new line and carriage return. 

Use the X and Y registers to control loops and nested loops. 

Use JMP to cause an unconditional transfer of program control. 
Use CMP, CPX and CPY. 


Test the results of CMP, CPX and CPY using BCC, BCS, BEQ, BNE, 
BMI and BPL. 


oOoogood0no0o0 


Answers to SAQs 


SAQ 1 
(a) If we did not clear the carry at the start and it happened to be set at 1 
then the answer would be 1 too many. 


(b) If we cleared the carry between low- and high-byte addition when a 
carry was required then the carry would fail to take place. This would 
make the high-byte of the answer 1 short i.e. the number itself would be 
&100 too small. This shows that you must remember when to use CLC 
and when not to use it. 


SAQ 2 


The carry flag values would be: 


(a) At line 80, 1. (Set carry to 1 at start.) 

At line 90, 0. This is because the low-byte subtraction (&53 - &61) 
requires a borrow from the high-byte subtraction. SBC will only 
execute a borrow if the carry flag is 0. 


(b) At line 80, 1. (Set carry to 1 at start.) 

At line 90, 1. Here the low-byte subtraction (&A2 - &77) does not 
require a borrow from the high-byte subtraction so the carry flag is left 
set at 1 to prevent the borrow. 
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SAQ 3 

(a) Result is 0 so Z = 1. 

(b) Result is not 0 so Z = 0. 
(c) Result is 0 so Z = 1. 


SAQ 4 


First see what happens when the content of &70 is not 0. 


>7871 0 Set &71 to 0 to start. 
>?870 45 
>CALL start 
>P.~ 2871 
FF 


We started with the contents of &71 equal to 0 and ended with its 
contents &FF (= &2A). The program did branch. 


Next try with the contents of &70 equal to zero. 


>?871 0 Re-set &71 to 0. 
>?78&70 0 
>CALL start 
>P.7 2871 
0 


At the end of this run, &71 is still 0, so the program did not branch. 
SAQ 5 


10 REM BRANCHING 


20 

30 DIM 2%50 

40 FOR pass = 0 TO 3 STEP 3 

50 PX = 1% 

60 C 

70 OPT pass 

80 

90 -Start 

100 LDA &70 \Put contents of &70 into accumulator 
110 BNE there \If not zero then branch 

120 =RTS \Exits here if contents of &70 are zero 
140 .there 

150 LDA 9&FF \Put &FF into accumulator as indicator 

160 STA &71 \Store indicator at location &71 

170 

180 RTS \Program exits here if branch happened 
190 J] 

200 NEXT pass 

210 


220 REM Test data 

230 2870 = 34 

240 27871 = 0 

250 

260 CALL start 

270 

280 PRINT "Contents of location &71 = &" ; ~?&71 
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Test run 
>RUN 


Contents of location &71 = &FF The program did branch. 


Program 3.11 


(K] Change the test data to ?&70 = 0 and ?&71 = O and then run Program 
3.11 again. This time the contents of &71 after the run should be zero, 
showing that the program did not branch. 


SAQ 6 


10 REM BRANCHING 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


DIM Z 


450 


FOR pass = 0 TO 3 STEP 3 


PX 
C 
OPT 


-st 
LDA 
CLC 
ADC 
BCC 
STA 


RTS 


~Sm 
STA 


RTS 
] 
NEX 


REM T 
27872 
2873 
2870 
7871 


CALL 


PRINT 
PRINT 


= 1% 
pass 


art 
&70 


&71 

small \Will branch if sum <=8FF 

&72 \If sum >&FF the sum (less lost carry) 
stored at &72 
\Exits here if sum >&FF 


all 
&73 \Store sum here if <=&FF 


\Exits here if sum <=8&FF 
T pass 


est data 
= 0 

0 

&22 
&2D 


start 


"Contents of location &72 
"Contents of location &73 


&" 5 72872 
aaa Program 3.12 
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Test run 


>RUN 
Contents of location &72 
Contents of location &73 


&0 The program branched. 
&4F 


Run Program 3.12 as above. Then change the test data in lines 260 to 
290 to ?&70 = &86, ?&71 = &91, ?&72 = O and ?&73 = O and run the 
program again. Check that the contents of &72 and &73 are &17 and 0, 
this time showing that the program did not branch. 


SAQ 7 


10 REM STAR OR PLING 
20 

30 star = ASC "x" 

40 pling = ASC "!" 
50 oswrch = &FFEE 


60 

70 DIM 2%50 

80 

90 FOR pass = 0 TO 3 STEP 3 

100 PX = 1% 

110 #C 

120 OPT pass 

130 

140 ~start 

150 LDA &70 \Put contents of location &70 into A 
160 BNE not \Branch if contents of A not zero 


170 LDA #star \Put '*' into A as zero indicator 
180 JSR oswrch \Print zero indicator 


190 RTS 
200 
210 -not 


220 LDA #pling \Put '!' into A as not-zero indicator 
230 JSR oswrch \Print not-zero indicator 


240 

250 =RTS 

260 J 

270 NEXT pass 
280 

290 

300 REM First test 
310 ?&70 = 0 


320 PRINT "Action when contents of &70 = 0:" 
330 CALL start 

340 

350 REM Second test 
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360 7870 = 27 
370 PRINT ' "Action when contents of &70 = 27:" 


380 CALL start ; Program 3.13 
Test run 
>RUN 
Action when contents of &70 = 0: 
* 
Action when contents of &70 = 27: 


'> 


SAQ 8 


The key points here are: 
(a) that you need to use LDX &70 to put the number in &70 into the X 


register 
and 


(b) that OSNEWL will need to be called after each star is printed. 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM STAR COLUMN 


oswrch GFFEE 
osnewl = &FFE7 
star = ASC "*" 
DIM 2%50 


FOR pass = 0 TO 3 STEP 3 
PX = 2% 
C 
OPT pass 


-Start 
LDX &70 \Get counter from location &70 


«print 

LDA #star \Put '*' into A 

JSR oswrch \Print '*!' 

JSR osnewl \Carriage return and new Line 

DEX \Decrease counter 

BNE print \Loop back if more '*'s to do (i.e. if X<>0) 


RTS 
J 
NEXT pass 


REM Test run 
INPUT "Enter number of stars required " number 
2&70 = number 


CALL start Program 3.14 
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Test run 


>RUN 
Enter number of stars required 5 
* 


Ve + + * 


Program 3.14 
SAQ 9 


C = 1 when ‘register = value’ and when ‘register > value’. 
Z = 0 when ‘register < value’ and when ‘register > value’. 


Signed numbers only: 
N = 0 when ‘register = value’ and when ‘register > value’. 


SAQ 10 
Condition Signed Nos Unsigned Nos 


Register < value BMI away BCC away (1) 
Register = value BEQ away (3) BEQ away (2) 
Register > value (4) (4) 


(1) If you said ‘BNE away’ then the branch would also take place on 
‘register > value’. 

(2) If you said ‘BCS away’ then the branch would also take place on 
‘register = value’. 

(3) If you said ‘BPL away’ then the branch would also take place on 
‘register > value’. 

(4) There is no single instruction that will do the job. We have to use 
two instructions in each case. The method is described in the next 
section of the Unit. 


SAQ 11 

(a) The problem is to distinguish combinations of values of N and Z. To 
do this we use BEQ followed by BPL but only BPL branches to ‘away’. 
BEQ branches to ‘here’, i.e. it doesn’t really branch at all because the 
label ‘here’ will follow the test: 


BE@ here 
BPL away 
-here 
etc. 


This is illustrated in Figure 3.5. 
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N=0O and Z<O 
Register >value 





Branch Branch 
fails succeeds 


Figure 3.5 Test for ‘register > value’ (signed numbers) 


(b) Here the problem is to distinguish between combinations of values 
of Z and C. To do this we use ‘BEQ here’ and ‘BCS away’: 


BEQ here 
BCS away 
«here 
etc. 


This is illustrated in Figure 3.6. 
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—----— Z=Oorl 
C=0 orl 


Ze0 and C21 
Register > value 


fails succeeds 


Figure 3.6 Test for ‘register > value’ (unsigned numbers) 


SAQ 12 


(a) BPL away (b) BCS away 


SAQ 13 

(a) BMI away 
BEQ away 

(b) BCC away 
BEQ away 


(Will branch if <) 
(Will branch if =) 


(Will branch if<) _ 
(Will branch if =) 


Note: In both cases, both tests branch to ‘away’. 
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UNIT 4 
Addressing modes 


Introductory note 

4.1 Whatis addressing? 

4.2 Immediate mode 

4.3. Zero Page mode 

4.4 Absolute mode 

4.5 Implied mode 

4.6 Indirect addressing 

4.7 Absolute indexed mode 

4.8 Zero Page indexed mode 

4.9 Relative mode 

4.10 Accumulator mode 

4.11 Indexed indirect mode 

4.12 Indirect indexed mode 
Assignment D 
Objectives of Unit 4 
Answers to SAQs 
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Introductory note 


This unit is unavoidably different from the rest of the course in that it is 
to some extent a reference unit. It contains some activities and 
self-assessment work, but less than in other units. 


You use addressing modes every time you write an assembly language 
statement. You have already learnt some of the modes. But since there 
are many modes, some of which are rather difficult, there is no obvious 
point in the course at which to introduce them all. However, to 
appreciate the modes, you need at some stage to see them all together. 
So it makes sense to introduce them all now. 


Don’t be put off if you find this Unit a little difficult at times and too 
much to remember all at once. Treat its sections at the following levels 
of importance. 


4.1 What is addressing? Very important 

4.2 The immediate mode You have used these already. 
4.3 The zero page mode This Unit puts them into pers- 
4.4 The absolute mode pective amongst the range of 
4.5 The implied mode address modes 

4.6 Indirect mode ot used much in this book 
4.7 Absolute indexed mode Very important 


4.8 Zero page indexed mode X_ A variation of 4.7 
Zero page indexed mode Y_ Not used in this book 


4.9 Relative mode You have already used this 
4.10 Accumulator mode Used in the next Unit 

4.11 Indexed indirect Skip this if difficult 

4.12 Indirect indexed Very important 


This multiplicity of modes contributes to the versatility of the 6502 
whilst at the same time making it look a little daunting. So, at a first run 
through the book, you might like to 


Study carefully 4.1, 4.7 and 4.12 
Read through 4.2 to 4.5, 4.9, 4.10 and 4.11 


and leave the other sections until you need them to solve a particular 
problem. 
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4.1 What is addressing? 


Most assembly language instructions are in two parts: an assembly 
instruction code followed by a number ora memory location (called the 
‘operand’). You have met 


ae Number 
LDA #&23 
Instruction 
and 
Memory location 
LDA &71 “ 
Instruction —— 


If you look at these two instructions when they are assembled, you will 
find that: 


LDA #&23 LDA &71 
becomes becomes 
AQ 23 A5 70 


So LDA does not assemble as one fixed code but varies according to its 
operand. If a number is loaded directly (not from memory), then LDA 
assembles as AQ. If the accumulator is to be loaded from zero page, then 
LDA assembles as A5. 


Operand 
LDA #&23 
Instruction 
Operand 
LDA &71 
Instruction 


These two examples show two different addressing modes: the 
‘immediate mode’ and the ‘zero page mode’. 
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4.2 Immediate mode 


In immediate mode, the operand is an 8-bit number preceded by 4 
which is read as ‘immediate’ e.g. 


LDA #&23 Load the accumulator immediate &23 
CMP #0 Compare to immediate 0 


You have been using this mode since Unit 2. What we haven't said is 
which instructions can use the immediate mode. It can, in fact, be used 
after 11 of the 6502 instructions. These are : ADC, AND, CMP, CPX, 
CPY, EOR, LDA, LDX, LDY, ORA and SBC. 


(In some assemblers you'll see ‘Load Accumulator Immediate’ written 
as LDAIM.) 


4.3 Zero Page mode 


This again has occurred many times in this course. In the Zoro Pie 
mode, the instruction is followed by the address of a memory location 
in Zero Page i.e. a number between 0 and &FF. Examples of this are 


LDA &72 
STA &73 


21 instructions can use this mode: ADC, AND, ASL, BIT, CMP, CPX, 
CPY, DEC, EOR, INC, LDA, LDX, LDY, LSR, ORA, ROL, ROR, SBC, 
STA, STX and STY. 


4.4 Absolute mode 


This is the same as the Zero Page mode except that a memory location 
outside Zero Page is being addressed. This immediately brings about an 
important difference: any Zero Page address is 1 byte long whereas any 
other address in memory will be 2 bytes long. Because of this, any 
instruction which addresses Zero Page involves fewer numbers than 
the same instruction addressing a memory location elsewhere. A Zero 
Page instruction is executed faster than one which addresses a location 
elsewhere. Examples of the absolute mode are: 


LDA &3000 
LDY &2348 


23 instructions can use this mode: ADC, AND, ASL, BIT, CMP, CPX, 


CPY, DEC, EOR, INC, JMP, JSR, LDA, LDX, LDY, LSR, ORA, ROL, ROR, 
SBC, STA, STX and STY. 
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4.5 Implied mode 


In the implied mode, nothing follows the instruction since the 
instruction needs no further address. The address is implied in the 
instruction itself. For example: 


CLC needs no further address 
and 


INY needs no further address 


In both cases the instructions have implicit addresses. 


You will recognise this as a mode which you have already used. It can 
be used with 25 different instructions: BRK, CLC, CLD, CLI, CLV, DEY, 
DEX, INX, INY, NOP, PHA, PHP, PLA, PLP, RTI, RTS, SEC, SED, SEI, 
TAX, TAY, TSX, TXA, TXS and TYA. 


Any instruction which uses the implied mode does not use any other 
mode. 


4.6 Indirect addressing 


This is used by one instruction only: JMP. It consists of the format 


JMP C&xxxx) 
where &xxxx is an address in memory. (Note carefully the position of 


the brackets). At &xxxx another address is stored to which the program 
is to branch. This action is illustrated in Figure 4.1. 


PROGRAM MEMORY LOCATION 


1 

1 

1 

1 

1 

1 

1 

1 

Vv 
TIMP(&xxxx) 


Figure 4.1 Action of JMP (&xxxx) 


&xxxx 
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At JMP (&xxxx), the program loads the program counter from memory 
location &xxxx at which is stored the memory location number &yvyyy. 
The program then goes to &yyyy where the next instruction will be 
found. This may look like a long way round to get to &yyyy but it can 
make sense when you need to vary the final destination of the jump but 
cannot vary the address in the jump instruction. Instead, you arrange to 
vary the contents of &xxxx itself. This is a more advanced technique 
which we shall not need to use in this book. 


You may find it helpful to compare indirect addressing with BASIC 
when you write: 


A=100:GOTOA 


4.7 Absolute indexed mode 


This mode has two versions: 





Its purpose is to allow the address to which the program goes to be 
modified by the value in the X or Y register. For example, 
LDA &70, X 


will load the accumulator with the contents of memory location &70 + x 
So if X = 5, 
LDA &70, X 


is effectively 
LDA &75. 


The value of this mode is that is allows us to work systematically 
through a list of data stored in sequential memory locations. 


Example 1 

Fifty 1-byte numbers are stored in memory starting at &3000. (Memory 
at &3000 is free for your use in Mode 7). Search the list to find out 
whether the number &39 is in the list. If it is, store the number &FF in 
&70. Otherwise store 0 there. 


The program is shown in Program 4.1. It incorporates two new ideas. 
First, we have used a label for the memory location &70. At line 40 we 
have put 


flag = &70 


This then allows us to put ‘flag’ in the program in place of &70 so 
making the program much more readable. From now on we will 
increasingly use labels for memory locations. Second, we have used a 
useful device for setting the value that ‘flag’ will hold. It starts at zero 
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(line 120). If we don’t find &39, the flag stays untouched. But if we do 
find &39, we decrement the flag by 1. Note that 0 - 1 produces &FF, 
since we are dealing with 8-bit numbers. If the flag is decremented at 


line 240, it goes from 0 to &FF. 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


REM LIST SEARCH 
DIM Z% 50 
flag = &70 
FOR pass = 0 TO 3 STEP 3 
PX = 1% 
C 
OPT pass 
search 
LDA #0 
STA flag \Initialise flag 
LDX #832 \Initialise counter 
- loop 
LDA &3000,X \Load A with next item 
CMP #839 \Compare to search value 
BEQ@ found \Branch if found 
DEX 
BNE loop \Loop back if more items 
RTS \Not found 
.» found 
DEC flag \Set flag to 'found' (&FF) 
RTS 
] 
NEXT pass 
REM Test routine 


REM Put random numbers into the memory block 
PRINT “List of numbers put into memory block." ' 
FOR I = &3000 TO &3032 
21 = RNDC&FF) 
PRINT ; “?1 ; 
NEXT 


woe 
’ 


REM Call search routine 
CALLsearch 


PRINT '' "Result of search:" 
IF 2?&70 = O THEN PRINT "&39 was 
"839 was in list." 


not in List." ELSE PRINT 


Program 4.1 
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The critical parts of this program are: 
130 LDX #832 


140 

150 .loop 
Loops back 160 LDA &3000,X 
1s ESB 

190 DEX 


200 BNE loop 


We have chosen to check the list from the top down. At the first pass, X 
= &32 so line 160 is effectively 


160 LDA &3032 


and the number at &3032 is loaded into the accumulator. Then at line 
190, X is decremented by 1. On the second pass, line 160 is effectively 


LDA &3000 + &31. 


i.e. the accumulator is loaded with the number in &3031. The passes po 
on in this manner, successively loading the accumulator with the 
contents of &3030, &302F, &302E etc. until the last location of &3000 is 
reached. This occurs when X = 0 which is detected by line 200. 
Checking the list backwards is more efficient in this case (and in many 
other cases) since it avoids having an extra CPX #&32. 
Test runs 

>RUN 

List of numbers put into memory block. 


c1 CO EC 31 39 AF FF 1 BO E4 BO 3C 63 81 8F FF 18 FF 84 80 B1 F 
EO 80 80 33 31 BO 51 8C 50 88 9D 41 31 14 29 C8 2B 7F B1 BF S CF 
BC 51 B1 40 AF 94 B1 


Result of search: &39 was in list. 
>RUN 
List of numbers put into memory block. 


0 1D F1 40 F3 58 48 19 50 2 EF 89 81 35 CD F1 10 BD BC 77 28 64 
41 81 F7 99 FB 48 FE 3F 41 1D 31 38 DO 1 31 4F EB 31 40 20 42 70 
80 18 CF 85 10 32 FC 


Result of search: &39 was not in list. 
Type and test Program 4.1. 


SAQ 1 

What is the maximum length of a list that could be searched in this 
way? 

SAQ 2 

Write a program using the absolute indexed mode to transfer 50 1-byte 
numbers stored sequentially in memory starting at &3001 to locations 
&3801 to &3832. 
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Note: 

(a) We have worked these examples using the X register. We could 
equally well have used the Y register. The 15 instructions with which 
you can use absolute indexed addressing are: ADC, AND, ASL, CMP, 
DEC, EOR, INC, LDA, LDY, LSR, ORA, ROL, ROR, SBC and STY. 


(b) In Program 4.1, we could just as well have written 


LDA #&39 
CMP &3000, xX 


4.8 Zero Page indexed mode 


Zero Page indexed X 
This is the same as absolute indexed X except that the address being 
modified by X is in Zero Page e.g. 


LDA &70, X 


SAQ 3 
Is there any practical difference between absolute indexed X and Zero 
Page indexed X? Hint: think of the possible range of values of X. 


Zero Page wrap-round 

SAQ 3 demonstrates a condition called ‘Zero Page wrap-round’. When 
an attempt is made to use a Zero Page mode with an address that would 
go above Zero Page, the 6502 ignores the msb of the address e.g. LDA 
&70, X with X = &AO gives an address above Zero Page. That address is 
treated as &10 which is in Zero Page. 

Zero page indexed X mode can be used with 16 different instructions: 


ADC, AND, ASL, CMP, DEC, EOR, INC, LDA, LDY, LSR, ORA, ROL, 
ROR, SBC, STA and STY. 


Zero Page indexed Y 

This is not similar to Zero Page indexed X since it can only be used 
after the instructions LDX and STX. This mode allows us to use the Y 
register to modify the locations in Zero Page at which the X register 
loads. This mode is not often used. 


4.9 Relative mode 


This is just a new name for a mode you have already learnt to use. It is 
the mode used by the branch instructions (and only by the branch 
instructions). In the relative mode, the program is told to branch to an 
address relative to its current address. For example, a program may be 
told to branch 35 bytes forward or 27 bytes backwards. This is tricky to 
work out. If you stick to branching to labels, the assembler works out 
the number of bytes in the jump for you. We shall not therefore bother 
with the forward and backward branching tables needed when you 
have to work out the length of jump for yourself. 
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However, you do need to bear one point in mind about the relative 
mode. The maximum forward or backward jump is 127 bytes. If you try 
a longer jump then you will get an error message when you try to 
assemble the program. 


SAQ 4 

Longer jumps are possible but not in relative mode. How could you 
synthesise a relative mode branch instruction which would jump more 
than 127 bytes? Hint: follow it with which instruction? 


4.10 Accumulator mode 
It applies only to ASL, LSR, ROL and ROR. Thus you may write 


ASLA 
LSRA 
ROLA 
RORA 


No other instruction may address the accumulator. We use it in the 
next unit. 


4.11 Indexed indirect mode 


This mode combines indirect addressing and indexed addressing. It 
has a limited purpose which is best explained by an example. 


Example 2 

A program will obtain data from one of 5 addresses according to the 
value of the variable X which occurs in the algorithm. You don't know 
what these addresses are at the time of writing the program but you do 
know that they will be stored in &80 and &81, &82 and &83, &84 and 
&85, &86 and &87, and &88 and &89. 


The new address format that we need to solve this problem is 

. (&bb, X) - 
where &bb is a base address in zero page and X is the value in the X 
register. (Note carefully the position of the brackets). Examples of this 


address format are: 


LDA (&80, 2) 
STA (880, 3) 


So, returning to the example, if the program included the statement 


LDA (&80, X) 
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and X had the value 4 then the effect would be: 

MEMORY LOCATION 
Effective address 
msb |sb 


x 


-----------> 





Figure 4.2 Effect of LDA (&80, 4) 


The steps in Figure 4.2 are: 

LDA (&80, 4). 

Base address added to index: &80 + &4 = &84. 

CPU addresses &84 and &85 i.e. two bytes are addressed starting at 
&84. 

At &84 there is the low-byte of the effective address (Isb). 

At &85 there is the high-byte of the effective address (msb). 

CPU addresses msb Isb. 

Data from msb Isb is loaded into A. 


The base address must be in Zero Page, as must be all the indexed 
addresses. 


OOOO OOO 


X must increment by 2 to step through the indexed addresses since 
each indexed indirect mode address occupies two bytes of Zero Page. 


This mode is rarely used since it takes up valuable Zero Page space 
which you would not normally be able to spare. 


4.12 Indirect indexed mode 

In this mode the computer loads an address at which a base address is 
stored. It then goes to the base address from which indexing takes 
place. The first address must be in Zero Page. The format of such an 
address is: 


oe.ove, SROAd 4, ¥ 


where &aa is a Zero Page address and Y is the value in the Y register. 
Note that the brackets are in a different position from the indexed 
indirect X mode. 
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hxamiples of hts mode are 


LDA (870), Y 
STA (875), Y 


The action of LDA (&70), Y (where Y = 3) is explained in Figure 4.3. 


msb Isb+3 






A y 
' 
toe C8] 
msb Isb--4 
LDA(&70),Y 
&71 
&70 


Figure 4.3 How LDA (&70),Y loads from msb Isb + 3 


The steps are as follows: 


O) LDA (&70), Y loads from an address held in locations &70 and &7 1. 

O These store the low- and high-byte of the base address: msb and Ish. 

O The CPU takes the base address and adds the index in Y (3) to pive 
msb Isb + 3. 

O This is the effective address from which the accumulator will be 
loaded. 


As you will see from the rest of this book, this mode is an extremely 
useful one and is used again and again in a very wide range ol 
problems. 


Example 3 
Write a program to clear (set to 0) &100 memory locations starting from 
a base address which is stored at &80 (low-byte) and &81 (high-byte). 


Solution 

Note first that we can’t use the absolute indexed mode to solve this 
problem since that requires us to know the base address of the list. We 
are not told the base address in this example and know only that it will 
be stored in &80 and &81. Hence we must use indirect indexed mode. 


The program is shown in Program 4.2. Notice the form of the RIM 
statement in line 30. This reminds us that ‘base’ will be storing a 2-byte 
number. We have used one additional new technique in this program 
where, in line 260, we have written ‘base?1’. This refers to the address 
1-byte above ‘base’ and, in line 260, pokes &30 into that address. 
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10 REM PAGE WIPE 


20 


30 base = &80 : REM Plus &81 


40 DIM 2%50 ‘ 

50 FOR pass = 0 TO 3 STEP 3 

60 P% = 2% 

70 [ 

80 OPT pass 

90 

100 wipe 

110 LDY #0 \Initialise byte counter 

120 LDA #0 \Initialise A 

130 

140 next 

150 DEY 

160 STA (base),Y Clear a locatio 

170 BNE next \Loop back if more to clear 

180 

190 = RTS 

200 J 

210 NEXT pass 

220 

230 REM Test routine 

240 REM Set base address 

250 ?base = 0 

260 base?1 = &30 

270 

280 REM Fill page at base with random numbers 

290 PRINT "Test data put into memory:" ' 

300 FOR I = &3000 TO &30FF 

310 271 = RND(&FF) 

320 PRINT; “21; " "3 

330 NEXT 

340 

350 REM CALL clear routine 

360 CALL wipe 

370 

380 REM Check the result of same memory locations after 
calling 'wipe' routine:" ' 

400 FOR I = &3000 TO &30FF 

410 PRINT: 2 “22 eh Py 

420 NEXT 

430 PRINT 


Program 4.2 
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Test run 
>RUN 
Test data put into memory: 


1B F4 C9 7D 67 68 81 F7 39 ED EB D4 81 62 45 BO 1 67 10 7F 65 64 CE IF 
74 EB C4 69 AS 63 2C 45 46 7B BO 7A 7D 68 FE 94 5D 27 F6 AOD 6B ASB 2E 
16 63 4B 4C 3C 20 D4 B7 64 75 BC 3E FA FA 45 DB ES 2F D9 9E 6D 1E 4B 
2C C5 8C 89 90 95 D4 E7 OF D7 EC 28 90 BO 16 C6 4A DC 7E 3F AO FB 77 
71 D4 50 31 CA 47 4B 80 3A DA 84 D1 4B C1 4C ED EA 47 68 Al YE FS DF 9 
Foc 81 4 5C 45 E4 24 29 3D BO 9F A7 DB BF 21 EB 1E CA 6 1D D CA C2 121 
AC F 65 50 9D 2E 6D 79 46 53 A2 EB 46 BF E1 3F 25 F6 73 90 C D4 EA OF 
76 31 A7 7D 59 SE 6C 2A 56 23 EF SC 6C 6B 60 E3 74 92 BY CF YE 76 29 
9C 66 7B 9D 59 D9 2A 3C B2 6 1E 70 46 F CB E6 AS B4 21 B 74 3E 12 F6 B 
3B 5B AA A CA 83 1A 6E 93 AF 9C 3A EC FO 24 48 BC 15 EB 68 7F 55 63 F 
O 6F 37 3A 68 E1 93 8E CF EC C3 79 E2 85 DE 68 72 13 C6 


Contents of same memory locations after calling 'wipe' routine: 
oo000000000000000000000000000000000 


Oo0000000000000000000Z00000Z000000000 
oo000000000000000000000000000000000 
ooo000000000 


[K] Type and run Program 4.2. Check its working. Then try it with a 
block of memory at &2000 upwards. 


SAQ 5 

In SAQ 2 we used the absolute indexed mode to move a block of data. 
Write a program using indirect indexed addressing to move &60 items 
of data from the block of memory starting at &3000 to the block starting 
at &3800. 


The solution which we have given in the answer section works 
provided that (a) no more than one page is to be moved and (b) the 
position of the new block does not overlap the position of the old block. 
Let’s first look at how to deal with overlapping blocks in the single page 
move routine. 


Example 4 
The program has to allow for two possibilities. Either the new block is 
above the old block (Figure 4.4a) or it is below it (Figure 4.4b). 


MEMORY MEMORY ~ 


Old 
block | New 


block 


New 


tes 

so 
Renee: 

(a) (b) 


Figure 4.4 The new block is either above or below the old block 


100 


In case (a), we must move the old block to the new by starting at the top 
of the old block and moving down through it. In case (b), we must move 
the other way — start at the bottom of the old block and work up through 
it. The program has therefore to have two routines. If ‘old block < new 
block’ then we use the ‘down’ routine. If ‘old block > new block’ then 
we use the ‘up’ routine. 

The program is shown in Program 4.3. Because we are moving data 
around memory, we want the machine code well out of the way. We 
have therefore lowered HIMEM by &100 bytes and put the machine 
code in the space created. 
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20 

30 

40 

50 

60 

70 

80 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


REM PAGE MOVE WITH OVERLAP 


MODE 3 

HIMEM = HIMEM - &100 
oldlow = &70 

oldhigh = &71 

newlow = &72 

newhigh = &73 


FOR pass = 0 TO 3 STEP 3 


P% = HIMEM 
C 
OPT pass 


-move_with_overlap 


LDA oldlow \Subtract addresses 

SEC \of the 

SBC newlow \two blocks 

LDA oldhigh \to find whether 

SBC newhigh \move is up or down 

BCS down \Move down if new page is below old page 
up \Else move up 

LDY #&FF 

-nextup 

LDA Coldlow),Y \Get byte from top of old block 
STA (newlow),Y \Store it at top of new block 

DEY \Decrement byte counter 

CPY #&FF \Was last item done the zero'th item? 
BNE nextup \If not, loop back for next item 
RTS \Else exit with move finished 
-down 

LbY #0 \Set byte counter to 0 

-nextdown 

LDA (oldlow),Y \Get byte from bottom of old block 
STA (newlow),Y \Store it at bottom of new block 
INY \Increment byte pointer 
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400 BNE nextdown \Loop back if page not finished 


410 = RTS \Else exit with page moved 
420 J 

430 NEXT pass 

440 


450 PRINT '' "First test to move data from base at &3000 to 
base at &3020:" 

460 REM Uses ‘up' option 

470 ?2oldlow = &0 

480 ?o0ldhigh = &30 

490 ?newlow = &20 

500 ?newhigh = &30 

520 PROCtest 


530 

540 PRINT '' "Press space bar for next test." 
550 REPEAT : UNTIL GET = 32 

560 


570 PRINT ' "Second test to move data from base at &3020 to 
base at &3020:" 

580 REM Uses 'down' option 

590 ?oldlow = &20 

600 ?oldhigh = &30 

610 ?newlow = &0 

620 ?newhigh = &30 

630 PROCtest 

640 

660 END 

670 DEF PROCtest 

675 ar = 4 

680 PRINT' 

690 start 27871 * &100 + 78&70 

700 FOR I start TO start + &FF - 1 

710 21 = RND(&FF) 

720 PRINT “21, ; 

730 NEXT 

740 - 

750 CALL move_with_overlap 

760 

770 start 

780 PRINT' 

790 FOR I = start TO start + &FF - 1 

800 PRINT “71, ; 

810 NEXT 

815 ax = 10 

820 ENDPROC 


7&73 * &100 + 2&72 


Program 4.3 
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Test run 
>RUN 


First 


81 
7A 
2A 
52 
66 
2F 
3 

A6 
DA 
93 
3 

32 
39 


81 
7A 
2A 
52 
66 
2F 
3 

A6 
DA 
93 
3 

32 
39 


Press 


test 


BD 
29 
E3 
Al 
EB 
5F 
67 
E 

Ly) 

03 
08 
34 
EO 


BD 
29 
E3 
Al 
EB 
SF 
67 
E 

b) 

03 
08 
34 
EO 


space 


Second test 


35 
EB 
1 

CF 
3D 
dC 
8C 
6 

5E 
4 

FO 
F6 
78 


2F 
AG 
6E 
t) 

D3 
A8& 
5C 
72 
8E 
FA 
77 
1 

5F 


2F 
A4 
6E 
D 

D3 
A8 
5¢ 
72 
8E 
FA 
77 
1 

SF 


1A 
2D 
53 
D 

5E 
73 
1 

02 
pc 
4C 
E8 
24 
75 


1A 
2D 
53 
D 

5E 
73 
1 

D2 
oC 
4C 
E8 
24 
75 


72 
21 
FE 
7c 
43 
AA 
5) 
F4 
d2 
1B 
68 
50 
BE 


72 
21 
FE 
7c 
43 
AA 
5D 
F4 
d2 
1B 
68 
50 
BE 


to 


bar for next test. 


move data from 


58 
13 
68 
DD 
36 
ED 
9B 
01 
BB 
1A 
48 
5E 
53 


58 
13 
68 
dD 
36 
ED 
9B 
01 
BB 
1A 
48 
5E 
53 


6F 
9C 
90 
1E 
E9 
35 
BC 
53 
95 
51 
31 
8B 
A2 


6F 
9C 
90 
1E 
E9 
35 
BC 
53 
95 
51 
31 
8B 
A2 


51 
7B 
34 
49 
20 
A8 
7F 
48 
91 
34 
A 

oF 
AC 


51 
78 
34 
49 
20 
Ag 
7F 
48 
91 
34 
A 

oF 
AC 


F7 
BC 
BC 
1 

95 
E2 
36 
A 

6B 
6F 
67 
63 
B4 


F7 
BC 
BC 
1 

95 
E2 
36 
A 

6B 
6F 
67 
63 
B4 


E4 
EB 
35 
25 


CA 
44 
48 
B4 
3A 
6c 
2 

OF 
5 

E4 
EB 
35 
25 


base at &3000 to base at &3020: 


AC 
E7 
8c 
B1 
3A 
03 
39 
19 
C7 
40 
BC 
41 
A8& 


AC 
€7 
8c 
BI 
3A 
03 
39 
19 
C7 
40 
BC 
41 
Ag 


07 
63 
CA 
35 
bg 
5) 
6 

6B 
E8 
FO 
3A 
4B 
21 


07 
63 
CA 
35 
v9 
5D 
6 

6B 
E8 
FO 
3A 
4B 
21 


to move data from base 


6B 
c8 
41 
D3 
64 
58 
ED 
83 
70 
C1 
44 
5 

64 


6B 
c8 
41 
D3 
64 
58 
ED 
83 
70 
¢1 
44 
5 

64 


A7 
C 

5c 
57 
co 
69 
EF 
E3 
41 
4 

85 
48 
D8 


A7 
Cc 

5C 
57 
co 
69 
EF 
E3 
41 
4 

85 
48 
b8 


AG 
11 
AS 
25 
50 
25 
81 
19 
5¢ 
94 
SA 
co 
5B 


A4 
11 
AS 
25 
50 
25 
81 
19 
5c 
94 
5A 
cD 
5B 


EB 
CF 
F3 
E0 
57 
8E 
5¢ 
5D 
F3 
7 

81 
8B 
78 


EB 
CF 
F3 
EO 
57 
8E 
5¢ 
5D 
F3 
7 

81 
8B 
7B 


CA 
63 
EO 
7c 
F3 
2A 
FF 
78 
8D 
77 
SF 
AB 
14 


CA 
63 
E0 
7c 
F3 
2A 
FF 
78 
8D 
77 
SF 
AB 
14 


7F 
SF 
53 
20 
72 
03 
F 

90 
AG 
cc 
51 
1E 
4A 


7F 
5F 
53 
20 
72 
d3 
F 

90 
A4 
cc 
51 
1E 
4A 


DE 
82 
3F 
E8 
F6 
Ag 
26 
cB 
73 
28 
F2 
49 
32 


DE 
82 
3F 
E8 
F6 
Ag 
26 
cB 
73 
28 
F2 
49 
32 


89 
93 
BO 
35 
BB 
70 
EC 
B0 
85 
40 
67 
1 

65 


89 
93 
BO 
35 
BB 
70 
EC 
BO 
85 
40 
67 
1 

65 


7A 
BS 
EB 
dB 
78 
4B 
68 
A3 
SF 
19 
D 

8c 
5D 


7A 
B5 
EB 
oB 
78 
4B 
6B 
AZ 
SF 
19 
D 

8c 
5D 


at 


51 


97 
Ag 
87 


AG 
44 
87 
C3 
oF 


51 


97 
Ag 
87 


AG 
44 
87 
C3 
oF 
oF 


4F 
7D 
64 
8B 
d8 
38 
D8 
AG 
38 
96 
34 
FC 
5D 


4F 
70 
64 
8B 
b8 
38 
08 
AG 
3B 
96 
34 
FC 
5D 


&3020 


B4 
80 
6B 
6c 
A 
99 
45 


CA 
94 
97 
67 
91 


B4 
80 
6B 
6c 
AG 
99 
45 
dO 
CA 
94 
97 
67 
91 


BD 
AG 
89 
DA 
06 
88 
FA 
FA 
29 
F4 


51 


A 

FE 
8E 
53 
6B 
DF 
dB 
E7 


DF 
11 
19 


FE 
8E 
53 
68 


DB 
E7 


OF 


19 


6c 
3E 
89 
EA 
EB 
21 
DF 
F8 
84 
FD 
E9 
16 


6c 
3E 
89 
EA 
EB 
21 
OF 
F8 
84 
FD 
E9 
16 


Ag 
FE 
EC 
84 
5A 
70 
83 
19 
CA 
73 
6B 
20 


Ag 
FE 
EC 
84 
5A 
70 
83 
19 
CA 
73 
6B 
20 


SE 
31 
AD 
3D 
22 
c8 
FC 
48 
16 
81 
dO 
E0 


5E 
31 
AD 
3D 
22 
c8 
FC 
48 
16 
81 
dO 
£0 


base at &3020: 


7F 
SF 


oD 
9E 
35 
68 
9C 
4D 
58 
40 


BD 
06 
1F 
SF 
8E 
EE 
BA 
55 
D6 
B9 
7A 
3E 


BD 
D6 
1F 
SF 
8E 
EE 
BA 
55 
06 
B9 
7A 
3E 


24 
85 
8F 
D4 
84 
44 
2c 
c5 
28 
67 
65 
£0 


24 
85 
8F 
04 
84 
44 
2c 
cs 
28 
67 
65 
E0 


9C 
40 
30 
8B 
BO 
EO 
C4 
44 
5c 

1 
94 
CA 


9C 
40 
30 
8B 
BO 
EO 
c4 
44 
5¢ 

1 
94 
CA 
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Both SAQ 5 and Example 4 are limited to moves of up to &100 bytes 
On many occasions we need to move more than &100 bytes. Let's look 
at a move routine for larger blocks of non-overlapping data. 


Example 5 

A block move of this type would be used as a subroutine in a program 
We can assume that, somewhere in the program, the number of bytes to 
be moved has been noted. Since the block is more than &FF bytes, the 
size of the block must be a two-byte number. Its high-byte is the number 
of whole pages to be moved and its low-byte is the number of items in 
the last, incomplete page. The routine we are going to use moves all the 
whole pages first and then does the last, incomplete page. 


We have labelled the block size as ‘pages’ for its high-byte and ‘bytes’ 
for its low-byte. 


The program is: 
10 REM LARGE MOVE 


20 

30 MODE 3 

40 HIMEM = HIMEM - 200 
50 oldlow = &70 

60 oldhigh = &71 

70 newlow = &72 

80 newhigh = &73 

90 pages = &74 

100 bytes = 875 

110 


120 FOR pass = 0 TO 3 STEP 3 
130 PX = HIMEM 


140 C 

150 OPT pass 

160 

170 . large_move 

180 LDX pages \Put No. of pages to move into X 
190 BEQ@ partpage \If no whole pages, do part page 
200 = 
220 LoY #0 \Set byte counter 

230 


240 -nextbyte 
250 LDA (oldlow),Y \Get byte from old block 
260 STA (newlow),Y \Store in new block 


270 ~=IINY \Increment byte counter 

280 BNE nextbyte \If Y<>0 then move next byte of current 
page 

290 INC oldhigh \Move to next page to move 

300 INC newhigh \Move to next page to receive data 

310 DEX \Decrement page counter 
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330 
340 
350 
360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


BNE nextbyte \Loop back to move next whole page 


-partpage 

LDY bytes \Get byte counter of last (incomplete) 
page : 

BEQ exit \If part page empty, then exit 

-remnant 

DEY \Decrement Last page byte counter 


LDA (oldlow),Y \Get byte from last page 
STA (newlow),Y \Store it in new area 
cPY #0 \Last byte done? 

BNE remnant \If not, loop back 


-exit 

RTS 

] 

NEXT pass 


REM Test data to move &230 items from &3000 to &3500 
2870 = 0 

2871 &30 

2&72 = 0 

7873 = &35 

2874 = &1 

2875 = &10 

jtems = 27874 * 256 + 2875 


REM Place some random data in old block 
PRINT ' "Test data put into old block:" ' 
FOR I = &3000 TO &3000 + items - 1 
21 = RND(26) + 64 : PRINT CHRS(7I) ; 
NEXT 


REM Move data 
CALL large_move 


REM Check the new block 
PRINT '' "Data read back from new block:" ' 
FOR I = &3500 TO &3500 + items -1 

PRINT CHRS$(?1); 

NEXT 


PEARY Program 4.4 
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Test run 


Test data put into old block: 


JOWVPLDERPTHLEKKPUNGWRROWMDIETPXULYTGJYCYAGIRBBEHEJKYRJCUTOFQENVGWMI /K 
APXJJENCQFOKROEEVPWRIVCZLRIIGHIOTOSUOTUDRNXLCAWMLPVLKFQCLRKLZURGNI TURN 
BIGPEYCQKRNQFYZQKKTKTWFJXJEDQZHBDZHXZHIMCSPWGKVVAPDRHGPVQQCJFCKRHHE PWK 
KZGJEHMWMOYCZOZBKBFZTXJJFEVRFQLZPXAFFOMNDPYOEVJIGUMJJEXIICIIOQH 


Data read back from new block: 


JOWVPLDERPTHLEKKPUNGWRROWMDIETPXULYTGJYCYAGIRBBEHEJKYRJCUTOFQENVGWMT ZK 
APXJJENCQFOKROEEVPWRIVCZLRIIGHIOTOSUOTUDRNXLCAWMLPVLKFQCLRKLZURGNIIURB 
BIGPEYCQKRNQFYZQKKTKTWFJXJEDQZHBDZHXZHIMCSPWGKVVAPDRHGPVQQCJFCKRHHE PWK 
KZGJEHMWMOYCZOZBKBFZTXJJFEVRFQLZPXAFFOMNDPYOEVJIGUMJJEXIICIIOQH 


Program 4.4 
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RAM test 

Sometimes even the best micros break down. One part of the micro that 
you can test for yourself is the RAM. You just test each memory 
location by writing numbers into it and reading them back. Write a 
RAM test program that checks a given block of pages by filling the 
memory block with Os and then reading back, then filling with 1's and 
reading back and so on until &FF. 


Assignment D 


1. Write a program to search a list of more than &100 items for a given 
character. The base address of the list is stored in &70 and &71. The first 
item in the list is the number of whole pages in the list and the second 
item in the list is the number of items on the last (incomplete) page of 
the list. 


2. Write a program to find the largest element in a list of up to &100 
characters. The base address of the list is stored at &70 and &71 and the 
first item in the list is the number of elements in the list. 


Objectives of Unit 4 

After studying this unit you should be able to recognise: 
The immediate mode. 7 
The Zero Page mode. 

The absolute mode. 

The implied mode. 

The absolute indexed mode. 

The relative mode. 

The accumulator mode. 

The indexed indirect mode. 


oooaoagoaodna 


The indirect indexed mode. 
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Answers to SAQs 


SAQ 1 


The critical line is LDA &3000, X. Since X is the value currently in the 
X register, the range of values of X is 0 to &FF. So this method is limited 
to &100 items. 


SAQ 2 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


REM TRANSFER 


MODE 7 

DIM 2%50 

FOR pass = 0 TO 3 STEP 3 
PR = Lk 
C 
OPT pass 


.transfer 
LOX #832 \Initialise counter with No. of items to 
move 


-next 

LDA &3000,X \Load an item 

STA &3800,X \Store it in new location 
DEX 

BNE next 


RTS 
| 
NEXT pass 


REM Test routine 
PRINT ' "Test data put into old block:" ' 
FOR I = &3001 TO &3032 

21 = RNDC(&FF) 

PRINT ; 271; ""; 

NEXT 


REM Move data 
CALL transfer 


REM Check new block 
PRINT ' "Data read back from new block:" ' 
FOR I = &3801 TO &3832 

PRINT 3 72 3% "3 

NEXT 


ebb Program 4.5 
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Test run 
>RUN 
Test data put into old block: 


173 167 84 76 94 221 219 135 169 102 184 208 200 228 151 104 87 154 173 50 56 
242 132 96 51 80 229 89 161 59 108 55 192 72 48 53 27 196 112 235 177 92 e226 


231 226 136 2 207 199 108 
Data read back from new block: 


173 167 84 76 94 221 219 135 169 102 184 208 200 228 151 104 87 154 173 50 56 
242 132 96 51 80 229 89 161 59 108 55 192 72 48 53 27 196 112 235 177 92 226 


231 226 136 2 207 199 108 Program 4.5 


Note that we have started at the top of the fifty (decimal) numbers 
(&3032) and worked down. This simplifies the program since we can 
use BNE instead of CMP to decide whether or not to loop back. 


SAQ 3 

X can be 0 to &FF. But if X exceeded &B9 in the example the effective 
address of LDA &70, X would go out of Zero Page. But LDA &70, X is a 
Zero Page instruction. This contradiction is resolved by the 6502 
ignoring any part of an ostensible Zero Page address which exceeds 
&FF. 


SAQ 4 
To jump more than 127 bytes as a result of a branch instruction, you 
combine the branch with JMP which has unlimited range. e.g. 


BE@ local 
-locat This label is only used as a jumping-off point for JMP. 
JMP distant 


i.e. BEQ branches to a nearby launch pad called here Local which turns 
out to be nothing more that a JMP to distant. So, in effect, BEQ goes to 
distant however far away it is. 


Another method is to leapfrog from branch instruction to branch 
instruction but this can only be done if all the instructions use the same 


flag: 
oN ZN 


a ee 
BEQ BEQ BEQ destination 


Of course, you must make sure that other parts of your program don't 
accidentally fall into one of the later branch instructions. 
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SAQ 5 


10 REM MOVE 

20 

30 MODE 7 . 
40 HIMEM = HIMEM - 200 

50 oldlow &70 

60 oldhigh &71 

70 newlow &72 

80 newhigh &73 

90 FOR pass = 0 TO 3 STEP 3 

100 P% = HIMEM 

110 +#C 

120 OPT pass 

130 

140 -move 

150 LDY #8&60 \Initialise byte counter 
160 DEY 


180 -nextbyte 
190 LDA (oldlow),Y \Get byte from old block 
200 STA (newlow),Y \Store it in new block 


210 DEY \Decrement byte counter 

220 BPL nextbyte \Loop back if more bytes to move 
230 

240 RTS 

250 =] 

260 


270 NEXT pass 
280 REM Test routine 


290 2&70 = 0 
300 2&71 = &30 
310 2&72 = 0 
320 2&73 = &38 


330 PRINT ' "Test data put into old block:" ' 
340 FOR I = &3000 TO &305F 


350 21 = RND(255) : PRINT >; 21; " "3 
360 NEXT 
370 


380 REM Move data 

390 CALL move 

400 

410 PRINT '' "Data read back from new block:" ' 
420 FOR I = &3800 TO &385F 

430 PRINT; 271; " "3 


440 NEXT Program 4.6 
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Test run 


>RUN 
Test data put into old block: 


66 121 238 238 224 123 127 9 51 30 12 165 137 117 136 166 249 144 23 130 12 
4 20 180 14 228 211 178 138 190 142 90 59 27 54 240 73 24 111 110 252 115 $ 
4 170 7 66 91 198 3 25 119 214 46 152 79 227 252 27 140 190 79 249 159 37 9 
3.123 66 243 242 81 97 187 65 101 62 194 87 29 202 229 136 251 135 84 137 8 
7 217 189 18 173 123 50 254 43 196 94 115 


Data read back from new block: 


66 121 238 238 224 123 127 9 51 30 12 165 137 117 136 166 249 144 23 130 12 
4 20 180 14 228 211 178 138 190 142 90 59 27 54 240 73 24 111 110 252 115 3 
4 170 7 66 91 198 3 25 119 214 46 152 79 227 252 27 140 190 79 249 159 37 9 
3 123 66 243 242 81 97 187 65 101 62 194 87 29 202 229 136 251 135 84 137 8B 
7 217 189 18 173 123 50 254 43 196 94 115 ‘ 

Program 4.6 


SAQ 6 
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10 REM RAM TEST 

20 

30 MODE 7 

40 HIMEM = HIMEM - 200 
50 startlow = &70 

60 starthigh = &71 


70 endlow = &72 
80 endhigh = &73 
90 pages = &74 
100 character = &75 
110 base = &77 
120 


130 FOR pass = 0 TO 3 STEP 3 
140 PX = HIMEM 


150 OC 

160 OPT pass 

170 

180 -ramtest 

190 LDA endhigh \Get top page number - 
200 SEC 

210 SBC starthigh \Subtract bottom page number 
220 STA pages \Save number of pages to check 
230 LDA starthigh \Get high-byte of bottom page 
240 STA base \Save it in base 

250 

260 ~=«. fills 

270 ~=LDA #0 

280 STA character \Initialise check character 
290 


300 
310 


320 


330 
340 


350 
360 
370 
380 
390 
400 


410 
420 
430 
440 
450 


460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


600 
610 
620 
630 
640 
650 
660 
670 


680 


-nextvalue 
JSR Fill 


JSR check 


INC character 
BNE nextvalue 


RTS 


\Fill memory block with current check 
character 

\Read back memory block against current 
check character i 

\Move on to next check character 

\If not zero, loop back for 'fill'/ 
"check' cycle 


\SUBROUTINE TO FILL ALL THE PAGES 


fill 
LDA base 
STA starthigh 


LDA character 
LDX pages 


-nextpage 
LDY #0 


-nextbyte 

STA (startlow),Y 
INY 

BNE nextbyte 


INC starthigh 
DEX 
BNE nextpage 
RTS 


\Get high-byte of base of memory block 
\Use it to re-set high-byte of base of 
memory block 

\Get check character 

\Initialise counter for ‘pages checked' 


\Initialise byte counter for current 
page 


\Put ‘character’ in a memory location 
\Move to next location 
\Loop back if page not finished 


\Move to next page 
\Decrement ‘pages done’ counter 
\Loop back if more pages to do 


\SUBROUTINE TO READ BACK ALL THE PAGES 


-check 
LDA base 
STA starthigh 


LDX pages 


-nextpageread 
LDY #0 


-nextbyteread 
LDA (startlow),Y 


CMP character 


BNE failed 


\Get high-byte of base of memory block 
\Use it to re-set high-byte of base of 
memory block 

\Initialise counter for ‘pages checked' 


\Initialise byte counter for current page 


\Read 'character' in a memory location 
\Is it the same as the current check 
character? 

\If not, then exit. X and Y registers 
hold position of failed byte 


111 


112 


690 
700 
710 
720 
730 
740 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 


INY \Ltse move to next byte 
BNE nextbyteread \and loop hack 


INC starthigh \Move to next page 

DEX \Decrement page read 

BNE nextpage \If not finished, loop back to do next 
page 

RTS 

-failed 

RTS 

] 

NEXT pass 


INPUT "Enter start page No. in decimal" $% 


7871 = S% 
INPUT "Enter end page No. in decimal " EX 
2873 = E% 


result = USR(ramtest) 

IF (result AND &FFFF) DIV &100 = 0 THEN PRINT "Memory 

OK." ELSE PRINT "Failed at page &" ; (result AND &FFFF) DIV 
&100 "“ byte &" ; (result AND &SFFFFFF) DIV &10000 


Program 4.7 


UNIT 5 
Multiplication and division 


5.1 
5.2 
5.3 
5.4 
5.5 
5.6 


The problem of multiplication 

The Shift and Rotate instructions 

Assembly language multiplication 
8-bit binary division 

INC and DEC 

Assembly language 8-bit division 

Assignment E 

Objectives of Unit 5 

Answers to SAQs 
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5.1 The problem of multiplication 


6502 assembly language has no command for multiply or divide. All it 
provides for arithmetic are the ADC and SBC instructions which we 
have already met. (Although, as you will see, ASL effectively 
multiplies by 2 and LSR effectively divides by 2). This means that all 
further arithmetic must be expressed in terms of these four instruc- 
tions. (The manufacturer of a microcomputer will often provide his 
own subroutines for arithmetic which can be called through specified 
locations. These are not discussed here since this section is confined to 
pure assembly language methods which will work with any 6502 
system). So we start this unit by looking at a means of breaking down 
multiplication into.a series of additions. The method is one which you 
will have met before — long multiplication. 


The 6502 is going to work in binary but we will first look at base 10 long 
multiplication. Consider the sum 873 * 123. 





) 2619 (= 873°* 3) 
Partial ) 1746 (= 873:* 20) 
products ) 873 (= 873 * 100) 
107379 


That involved multiplication by 1, 2 and 3 (the digits of 123). Other 
decimal long multiplication could involve multiplications by 1, 2, 3, 4, 
5, 6, 7, 8, or 9. But in binary long multiplication we only need to 
multiply by 1. That is, all multiplications become additions. Conside: 
13 * 7 when done in binary. 


1101 
111 
) 1101 (=.1101 *' 1) 
Partial ) 1101 (= 1101 * 10) 
products ) 1101 (='1101 '* 106) 
1011011 


Next consider 13 * 5. 
1101 
101 


1101 (= 1101 * 1) 
0000 =(= 1101 * 0) 
1101 (= 1101 * 100) 


1000001 
114 


From this you can see that long multiplication involves successive left 
shifts of the multiplicand followed by addition of the shifted multipli- 
cand to the partial products when the multiplier has a 1 in the relevant 
position. In the standard method of long multiplication illustrated 
above, we listed all the partial products and then added them together 
at the end. When using a computer it is easier to accumulate the partial 
products as we go along. Here is our first decimal example, 873 * 123 
done by the method of accumulating the partial products: 


Accumulated partial product 
Start 0 
First partial product = 873 * 3 = 2519 0 + 2619 = 2619 
Second partial product = 873 * 20 = 17460 2619 + 17460 = 20079 
Third partial product = 873 * 100 = 87300 20079 + 87300 = 107379 


A flowchart illustrating this method for binary multiplication is shown 
in Figure 5.1. We have assumed that the multiplier is 8 bits long. 








Variables 


MPD = multiplica 
MPR = multiplier se 
PP = Partial product 
COUNTER 


(ie. double the MPD) 


Figure 5.1 Multiplication of two 8-bit numbers 
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SAQ 1 

Multiply the binary numbers 1010 by 1101 (a) by standard long 
multiplication (b) by the method in Figure 5.1. In the case of (b), note 
down all the stages of the accumulation of the partial products. 


If you examine Figure 5.1 closely, you will see that it still cannot be 
programmed in the 6502 language that you have met so far. To program 
Figure 5.1 we need to be able to test successive bits of the multiplier to 
see if they are 0 or 1. We also need to be able to shift the multiplicand 
left by one bit position. Both these activities can be accomplished with 
some new 6502 instructions which we shall now introduce. 


5.2 The Shift and Rotate instructions 


There are four instructions which shift the bits of a register or memory 
location. In each case the bit that is pushed out falls into the carry flag 
location. First, the two shift instructions. 


ASL Arithmetic Shift Left 


Z 





8-bit register or memory 
ocation 








0 pushed in 
Bit 7 pushed 


into carry 


LSR Logical Shift Right 


O pushed in 8 bit Rag a SC seatnoy 
Bit 0 
pushed 
into 
carry 


Figure 5.2 The two shift instructions 
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Both ASL and LSR result in the loss of one bit although it is available in 
the carry bit for inspection or ‘catching’ for some other purpose. Thus if 
the accumulator contained 10110110 the effect of LSR on the 
accumulator would be: 


Accumulator 


Before 10110110 
LSR A 
After 01011011 0 pushed off into carry. 


) appears here 


The effect of a left shift on a number is to multiply that number by 2. 
The effect of a right shift is to divide the number by 2, losing the 
remainder. 


The situation is slightly different with the two rotate instructions. 
These are like the shift instructions except that the carry bit is pushed 
back into the other end of the memory location or register being rotated. 
This is illustrated in the following two figures. 


ROL ROtate Left 
7 eNENENENENEN OO 







8-bit register or memory 


location 
Bit 7 carry 
pushed pushed 
into into 
carry bit 0 
ROR ROtate Right 
Carry pushed pai Lam Lae Par 





into bit 7 





8-bit register or memory 
location 
Bit 0 
pushed 
into 
carry 


Figure 5.3 The two rotate instructions 
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The effect of ROR on 10110110 is shown below. In order to illustrate 
ROR, we must say what value the carry has before execuling the 
command ROR since the carry bit is going to become part of the 
accumulator. 


Carry Accumulator 
Before 1(say) 10110110 
ROR 
After 0 11011011 


A useful feature of LSR (and ROR with C = 0) is that it performs 
division by 2 with any remainder being discarded. (This is the same as 
BASIC’s DIV 2). 


The BBC assembler, in common with many other assemblers, insists 
that you specify the operand with the shift and rotate instructions. You 
must say ASL A, LSR A, ROL A, ROR A (not just ASL, LSR, ROL, ROR) 
when shifting or rotating the accumulator. 


SAQ 2 
Write a program to find how many 1’s a number has. Put the number in 
location &70. Place the answer in &80. 


5.3 Assembly language multiplication 


In Figure 5.1 we showed a method of performing binary multiplication. 
In 5.2 we introduced the shift instructions needed for this multiplica- 
tion. However, even if we limit the multiplier and multiplicand to 8 
bits, programming the method in Figure 5.1 presents two problems. 
First, the cumulated partial product may exceed 8 bits. Second, the left 
shifted multiplicand will lose bits as they are shifted out of the register 
holding the multiplicand. Let’s look again at Figure 5.1 to see if we can 
avoid shifting the multiplicand at all. 


The method used in Figure 5.1 was to: 


O left shift the multiplicand 
O add to the cumulated partial product 


If you look back again at the answer to SAQ 1(b), you will see that the 
above method is exactly the same in effect as: 


O add the multiplicand to the cumulated partial product 
DO right shift the cumulated partial product 
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SAQ 3 

Re-work SAQ 1 by this new method. Collect the right shifted bits that 
fall off the partial product in a new location. (Do this as a paper and 
pencil multiplication and not as an assembly language program). 


The result of SAQ 3 shows that we can perform binary multiplication 
without having to shift the multiplicand. Instead, we shift the 
cumulated partial product bit by bit into a new memory location which 
at the end of the multiplication contains the full answer. But the 
answer could be more than 8 bits long. If that were the case, the 8 
shifted bits of the partial product would be the 8 least significant bits. 
The 8 most significant bits would still be in the partial product 
location. Although SAQ 3 appears to work, in practice we must allow 
for a 16-bit result. If this is difficult to follow, consider this case: 


Bits pushed out of 
cumulated partial 


product 
101010 
0101 
10101[0: -—-———————— 0 
00000 
1010{(1._ ——— a 10 
101010 
11010[0 — ——_ 010 
00000 
1101|0 SSS 0010 
101010 
11011[! Sa 10010 
00000 
1101{[! ae 110010 
0000 
110[1 a > 1110010 
000 
11[0 ————~ = 01110010 


The total is 11 01110010 = 882. The least significant part is 01110010 
which was shifted out into the result location but the most significant 
digits, 11, remained in the partial products sum. 
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SAQ 4 

Multiply 11111 by 10111 using the above method. Establish which bits 
form the least significant byte and which bits form the most significant 
byte. 


We can now set out the flowchart for assembly language multiplication 
of two 8-bit numbers with a possible 16-bit result. This is shown in 
Figure 5.4. 






Variables 


A stores result high (=high 
byte of result) 


COUNTER (X register 







in program) 
multiplicand 





result low (= low byte of result) 





Shift ‘multiplier’ right 
















Figure 5.4 Flowchart for 8 bit multiplication 


And, finally, the program which is Program 5.1. 


The program assumes that the multiplicand is in &70 and the 
multiplier in &71. The low-byte of the answer is stored in &72 and the 
high-byte is transferred into location &73 at the end of the program. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


REM 8 BIT MULTIPLICATION 


DIM 2%50 

multiplicand = &70 
multiplier = &71 
resultlow = &72 
resulthigh = &73 

FOR pass = 0 TO 3 STEP 3 


PR = 1% 
C 
OPT pass 


-multiply 
LDA #0 
LOX #8 


next 

LSR multiplier 
BCC rot 

CLC 

ADC multiplicand 


-rot 

ROR A 

ROR resultlow 
DEX 

BNE next 

STA resulthigh 


RTS 
J 


NEXT pass 


REM Test run 


INPUT "First number 


\Set high-byte of answer to zero 
\Set bit counter 


\Shift next multiplier bit into carry 


\Add multiplicand 


\Shift lsb of high-byte into carry 
\Catch carry in low-byte of answer 
\Decrease counter 

\Repeat if more bits 

\Store high-byte 


" first 


INPUT "Second number " second 


2? &70 = first 
2? &71 = second 


CALL multiply 


PRINT "Product low-byte = " ? &72 


PRINT "Product high-byte = " ? &73 


Program 5.1 
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Test runs 
First a test of multiplication that should give an 8-bit result: 12 * 5 


>RUN 

First number 12 

Second number 5 

Product low-byte = 60 
Product high-byte = 0 


Second a test that should give a 16-bit result: 137 * 231. 


>RUN 

First number 137 

Second number 231 

Product low-byte = 159 
Product high-byte = 123 


The total is 123 * &100 + 159 = 31647, which is the correct resull. 


Load Program 5.1. Check that your results agree with those above. 
Then try other multiplications. 


Program 5.1 covered the multiplication of two 8-bit unsigned numbers, 
More complicated routines are needed if the numbers are signed or 
larger than 8-bits. We shall not deal with multiplying signed numbers 
in this book although we shall deal with 16-bit unsigned multiplication 
later in this book. First, however, let’s look at 8-bit division. 


5.4 8-bit binary division 
Binary multiplication involved successive additions. Binary division 


involves successive subtractions of the divisor from the dividend. 
Consider 10111101 / 101 (189 / 5): 


7 00100101 


101 10111101 
—101 


0111 
—101 


1001 
—101 


100 


The answer is 100101 (base 2), remainder 100 (base 2) i.e. (decimal 35, 
remainder 4). 


As you might expect, the most efficient division program does not 
come from simply programming the above routine. Instead, we shill 
successive bits of the dividend into the accumulator until we can 
subtract the divisor from the accumulator. Then we add 1 to the 
quotient because the quotient counts how many times we have been 
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able to subtract the divisor from the dividend. This continues until all 8 
bits of the dividend have been shifted. Every shift of the dividend must 
be accompanied by a compensating shift of the quotient since we are 
subtracting multiples of the divisor. Let’s look at this method by 
dividing 10111 by 101. . 


Stage Accumulator Dividend Quotient 


Start 00000000 00010111 00000000 


Shift 1 00000000 2 00101110 00000000 
Can't subtract 101 


Shift 2 00000000 ~<«——— 01011100 00000000 
Can't subtract 101 


Shift 3 00000000 << 10111000 00000000 
Can’t subtract 101 


Shift 4 0000001 =< 01110000 00000000 
Can’t subtract 101 


Shift 5 00000010 <= 11100000 00000000 
Can't subtract 101 


Shift 6 00000101 <——— 11000000 00000000 
Can subtract 101 
Subtract 00000000 ~<«——— 11000000 00000001 (Add 1to 
quotient) 
Shift 7 00000001 <—— — 10000000 00000010 
Can’t subtract 101 


Shift 8 00000010 <«——— 00000000 00000100 
Can’t subtract 101 


After 8 shifts, the dividend register is empty. The quotient register 
contains 100 and there is 10 left in the accumulator. So: 


10111 / 101 = 100, remainder 10. 


SAQ 5 

Divide the binary number 110110 by the binary number 111 using the 
above method. Show the contents of the accumulator, dividend register 
and quotient at each step. 


If you inspect the register containing the dividend in our example or in 
your answer to SAQ 5, you will see that each successive shift creates 
one more free location (shaded in our example) in the dividend 
register. These locations are ‘free’ and don't affect the computation. At 
the same time these free bit places are always enough to hold the 
quotient at that stage of the computation. We can therefore get rid of the 
quotient as a separate store and simply save the quotient by adding 1 to 
the dividend register whenever the quotient needs a 1 adding to it. (The 
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0’s will appear automatically as part of the shift routine). Here, then, is 


our division example re-worked in this way. 


Stage 


Start 
Shift 1 


Shift 2 
Shift 3 
Shift 4 
Shift 5 
Shift 6 


Subtract 
7 


Shift 7 


Shift 8 


SAQ 6 


Accumulator 


00000000 —<— 


00000000 <— 


00000000 <— 


00000001 <«<— 


00000010 <— 


00000101 ~— 


00000000 <— 


00000001 ~<«— 


00000010 «— 
Remainder 


Dividend/quotient 


00010111 
0010111 0 
D Q 
010111 

D 

10111 000 
D Q 
0111 0000 
D Q 
111 00000 
D Q 
11 000000 
D Q 
11 000001 
D Q 


1 0000010 
D Q 


00000100 
Quotient 


(Note 1 added to 
quotient) 


(Note quotient 
shift) 


Repeat SAQ 5 using a dividend/quotient register instead of two 
registers. Show at each stage where the ‘boundary’ between dividend 
and quotient is in the single register. 


We now have an algorithm for 8-bit binary division. To program it we 
need one new instruction. 


5.5 INC and DEC 


In Unit 3 you met INX, INY, DEX and DEY which we used to increment 
or decrement the X and Y registers by 1. There are equivalent 
instructions to increment and decrement a memory location. 
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INC INCrement memory location by 1 


DEC DECrement memory location by 1 





INC &75 will make the contents of &75 1 larger. DEC &75 will reduce 
the contents by 1. We shall need INC for the binary division program, 
since we need to add 1 to the quotient every time we subtract the 
divisor. The great value of INC and DEC is that they allow us to alter a 
memory location without disturbing the contents of the accumulator. 
(You can’t, however, INC or DEC the accumulator.) 


5.6 Assembly language 8-bit division 


The program assumes that the divisor and dividend are in memory 
locations &70 and &71. &71 is going to be the dividend/quotient 
register. At the end of the program run, &71 will contain only the 
quotient. The bits of the dividend are rotated into the accumulator 
which, at the end of the run, will contain the remainder. As we don’t 
want to leave a result in the accumulator, we transfer it to &73. 


10 REM 8 BIT DIVISION 

20 

30 DIM 2%50 

40 dividend = &71 

50 divisor = &70 

60 remainder = &73 

70 

80 FOR pass = O TO 3 STEP 3 
90 P% = 1% 


100 C 

110 OPT pass 

120 

130 -division 

140 LDA #0 \Clear A 

150 LOX #8 \Set shift counter 

160 SEC \Set carry before a low byte subtraction 

170 

180 -shift 

190 ASL dividend \Shift dividend left 

200 ROL A \Rotate to catch carry bit in A 

210 CMP divisor \Is dividend large enough to subtract 
divisor? 

220 BCC next \If not, skip next two instructions 

230 SBC divisor \Subtract divisor from A 

240 INC dividend \Add 1 to quotient 

250 

260 -next 

270 DEX \Decrement shift counter 

280 BNE shift \Loop back if more shifts 


290 STA remainder \Store remainder 
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300 


310 RTS 

320 J 

330 NEXT pass 
340 


350 REM Test run 
360 INPUT "Enter first number " first 
370 INPUT "Enter second number " second 


380 ? &71 = first 

390 ? &70 = second 

400 

410 CALL division 

420 

430 PRINT "Result = " TAB(15) ; ? &71 
440 PRINT "Remainder = " TAB(15) ; ? &73 


Program 5.2 
First test run 


>RUN 

Enter first number 12 
Enter second number 145 
Result = 0 
Remainder = 12 


Second test run 


>RUN 

Enter first number 145 
Enter second number 12 
Result = 12 
Remainder = 1 


Try Program 5.2 with different values. 


Assignment E 

1. Quite often we want to multiply a number by 10 (decimal). Write a 
program to do this. Make use of the fact that 10 * n is the same as 8 * n 
+2*n. 


Objectives of Unit 5 
After studying this Unit you should be able to: 


O Perform binary multiplication with pencil and paper. 
O Use ASL and LSR. 

O Use ROL and ROR. 

O Use INC and DEC. 

QO Write an 8-bit multiplication program. 

O Perform binary division with pencil and paper. 

QO Write an 8-bit division program. 
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Answers to SAQs 


SAQ 1 
(a) 


1 

1 

1 
00 
101 


1010 


10000010 
Check: 10 * 13 = 130. 


(0) pp 


PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 


SAQ 2 


10 REM BIT COUNT 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


170 
180 
190 
200 


010 
101 


010 


00 <————- This line could be omitted. 


0 


0 
1010 
1010 


1010 + 101000 = 110010 
110010 + 1010000 = 10000010 


10000010 
10000010 
10000010 
10000010 
10000010 


DIM 2%50 


FOR pass = 0 TO 3 STEP 3 


PZ = 1% 
C 
OPT pass 


.-bitcount 
Loy #0 
LDX #7 


-rotate 
ROR &70 
BCC next 
INY 


next 
DEX 


\Set counter for the i's 
\Set counter for the bits 


\Put a bit into carry 

\lf the bit was a 1, skip the next 
instruction 

\Otherwise, increment the bit counter 
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210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


Test runs 


>RUN 
Enter 


255 contains 


>RUN 
Enter 


>RUN 
Enter 


123 contains 


SAQ 3 
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Right 
Right 
Right 
Right 
Right 
Right 
Right 


Right 


BPL rotate \Loop back if more bits to check 


«store 
STY &80 
RTS 

] 

NEXT pass 


REM Test routine 
INPUT "Enter number for bit count " 
2&70 = number 


CALL bitcount 


number 


PRINT\; number " contains " ; 2880 " bits set to 1." 


number for bit count 255 


8 bits set to 1. 


number for bit count 0 
0 contains 0 bits set to 1. 


number for bit count 123 


shift PP 


shift PP 


shift PP 


shift PP 


shift PP 


shift PP 


shift PP 


shift PP 


PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 
PP 


von “on Hon 


| ee 


6 bits set to 1. 


Program 


Right shifted bits 
collected in a new location 


0 
0 + 1010 
101c0 —~> 
0 + 101 
10c1 —~> 
10 + 1010 = 1100 
110CO ——» 
1010 + 110 = 10000 
1000C0 —>» 
0 + 1000 = 1000 
100C(0 —» 
0 + 100 = 100 
10c0 —~> 
0 + 10 = 10 
110 —> 
0+ 1 =1 
oc! —>» 


0 


10 


010 


0010 


00010 


000010 


0000010 


10000010 


r 


3 


After 8 right shifts, the answer, 10000010, has appeared in the new 
location and we haven't had to shift the multiplicand at all. 


SAQ 4 
11111 
10111 
111101. 1 
11111 
1011100 —m— 01 
11114 
1101100 001 
00000 
110101 1001 
11111 
101100 01001 
00000 
101100 > 001001 
0000 
10101 > 1001001 
000 
1001 > 11001001 
Most significant byte = 10. Least significant byte = 11001001. 
Check: 
11111 = 3 
10111 = 23 


31 * 23 = 713 


10 11001001 = 


SAQ 5 
Stage Accumulator Dividend 
Start 00000000 00110110 


Shift 1 00000000 — 01101100 


Shift 2 


Shift 3 


Can't subtract 111 


00000000 = 11011000 
Can't subtract 111 


00000001 = 10110000 
Can't subtract 111 


512 + 128 + 64+ 8 +1 = 


neh 


Quotient 


00000000 


00000000 


00000000 


00000000 


129 


Hence 110110 / 111 =111, remainder 101. 


Shift 


Shift 


Shift 


Shift 


Shift 


00000011 


00000110 


<——. 


oe 


00001101 <—_—__ 
Subtract 111 

00000110 << 

00001101 <_— 
Subtract 111 

00000110 

00001100  ~<— 


Subtract 111 


00000101 


Check: 54/7 = 7, remainder 5. 


SAQ 6 


130 


Stage 
Start 


Shift 


Shift 


Shift 


Shift 


Shift 


Shift 


Shift 


Shift 


Accumulat 
00000000 


00000000 


00000000 


00000001 


00000011 


00000110 


00001101 


Subtract 
00000110 


00001101 


Subtract 
00000110 


00001100 


Subtract 
00000101 
Remainder 


or 


01100000 
Can't subtract 111 


11000000 
Can't subtract 111 


10000000 «<— 


10000000 


00000000 


00000000 


00000000 


t 


f 


t 


00000000 


00000000 


00000000 
Add 1 to 
00000001 


00000010 


quotient 


Add 1 to quotient 


00000000 ~<— 00000110 


00000011 


Add 1 to quotient 


Dividend/quotient 
00110110 
Ly) 


0110110 0 
D Q 


110110 00 
D Q 


10110 000 
D Q 


0110 0000 
) Q 


110 00000 
dD a 


10 000000 

oa 

Add 1 to quotient 
10000001 

dD a 


0 0000010 
DQ 


Add 1 to quotient 
0 0000011 
da 


00000110 

Q 

Add 1 to quotient 
00000111 

Quotient 


00000111 


UNIT 6 
Lists and tables 


6.1 Assembly language lists and tables 
6.2 Inputting a sentence 
6.3 Printing alist 
6.4 Sorting alist 
6.5 Searching an ordered list 
6.6 Inserting an item into a list 
6.7 Putting lists into memory 
6.8 Look-up tables 
Assignment F 
Objectives of Unit 6 
Answers to SAQs 
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6.1 Assembly language lists and tables 


In BASIC programs, data frequently comes in the form of lists and 
tables. Even when it doesn’t quite come in such a form, we may find a 
way of putting it into such a form. We do that because BASIC provides 
‘data structures’ within its language e.g. lists (one dimensional arrays) 
and tables (two dimensional arrays). In assembly language, no such 
data structures are provided, so we have to create our own. We shall 
look at some very simple data structures and some routines for 
handling them. In particular we shall look at how to create lists and 
then search, sort, add to and delete from them. 


Before we start, let’s fifst illustrate the complexity of having to create 
your own data structures by comparing a simple task for BASIC with its 
equivalent in assembly language. 


Example 1 
Write a BASIC program to input 10 names and store them ina suitable 
data structure. 


Solution 


10 DIM N$(10) 

20 FOR I = 1 TO 10 

30 INPUT "NEXT NAME " N$(I) 
40 NEXT I 


RUN 
NEXT NAME PETER 
NEXT NAME JONATHAN 


NEXT NAME MARY 
etc. 


That was easy. So easy that you have probably not bothered to consider 
what the computer has done. First it has provided a structure to locate 
10 strings. That structure was the array N$(10). It did this even though 
it knew nothing about each individual string that was to be stored. 
Second, as we input each name, it was stored in its appropriate place, 
large enough to accommodate it even though the names are of varying 
lengths. Third, if we want to retrieve a name, we can do so just by 
knowing its position in the list e.g. N$(3) = "MARY". 


Now consider what would be involved in doing that in assembly 
language. 


First, assembly language has no arrays and no string handling 
commands. So to store the name PETER, we have to store it as ASCII 
code: 

50, 45,54, 45,52 i.e. PETER 
or 

50, 65,74, 65,72 i.e. Peter 
or 

70, 65,74, 65,72 i.e. peter 
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Second, we must decide where to store the name. We have to tell the 
computer which memory locations to use. 


Third, we have to know where in the memory the name PETER ends 
and the name JONATHAN begins. We could do this by putting an ‘end 
of item’ marker after each name (e.g. a ‘carriage return’) so the list 
would appear in memory as: 


50 45 54 45 52 OD 4A 4F 4N 41 54 48 41 4E OD 
PE T BE OER J 0 N AT H AN 


Or, we could allocate, say, 10 memory locations to each name and enter 
names as: 


PETER. .20. JONATHAN...MARY...... 


In that way, we would always know where to find the next name or the 
nth name but we have to make sure that no name is longer than 10 
characters. 


So there is clearly a lot more to consider about storing data in assembly 
language programming than in a high level language. We shall work 
with very simple data as an introduction to data handling. We start 
with inputting a sentence and storing it as a list of characters in 
memory. 


6.2 Inputting a sentence 


We are going to input the data at the keyboard directly into the memory 
locations we have specified in our program. The BBC Micro has a 
built-in routine for entering single characters which is called through 
&FFEO. The name of the routine is OSRDCH. 


OSRDCH Operating System ReaD CHaracter 
This is called through &FFEO. 


It accepts one character from the keyboard and 
puts its ASCII value in the accumulator. 





When you want to take a character from the keyboard you write 
JSR &FFEO 

or, better (because it makes your program more readable): 
JSR osrdch 


having previously defined &FFEO = oswrch at the start of the program. 


OSRDCH fetches a character from the keyboard and puts it into the 
accumulator. But it only does that, so the character is not displayed on 
the screen as it would be with the BASIC statement INPUT. (OSRDCH 
is therefore identical to GET in BASIC). So if you want to see what you 
are entering as you go along you need to use OSWRCH immediately to 
print each character as it is accepted from the keyboard. We will 
demonstrate this method in the next example. 
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(This is a simplified explanation of OSRDCH. It also contains a system 
for detecting errors during input and for detecting whether or not 
Escape was pressed. If Escape was pressed, this has to be acknow 
ledged. We have omitted this detail in Program 6.1 but the method olf 
acknowledging Escape is dealt with in section 8.7). 


Example 2 
Write a program to input up to &100 one-byte items from the keyboard 
and store them in memory starting at &3000. 


Solution 

There are many ways in which such lists can be stored. The simplest 
puts the items (7, say) in addresses &3000 to &3006 and then puts an 
‘end of list’ item in &3007. This ‘delimiter’ would probably be 0 since 0 
has no character associated with it in ASCII code. The second, and 
slightly more complicated method, is to store the list in addresses 
&3001 to &3007 and then to store the length of the list (7) in &3000 i.e. 
back at the start of the list. These two methods are illustrated below, 
both storing MACBETH 


Memory locations 
&3000 &3001 &3002 &3003 &3004 &3005 &3006 &3007 
Method 1 84D = 841 843 842 845 854 &48 8&0 


Method 2 807 &4D &41 843 842 8 &45 854 848 


It is up to you to decide which method you use for any particular 
program. As a guide, the delimiter method is best for lists that will only 
be worked through sequentially. On the other hand, if a list is destined 
to be worked through in some other way (e.g. with certain types of 
search routine), then the length of the list needs to be known at the 
outset. Storing the length at the start of the list provides this 
information. Because this method leads to lists which can be more 
easily manipulated, it is the one mostly used in this Unit. 


To work through the list, we need to know both its base address and its 
length. But we don’t want the input program to work for only one base 
address. We will use indirect indexed addressing (from section 4.12) so 
that the base address can be stored at a fixed location. We shall also 
need to arrange for the program to count the number of items input, 
detect an end-of-list character and to store the count length at the 
beginning of the list. Then whenever we access the list, we shall know 
that the first item is the length of the list and not an item of data. A 
flowchart for this method is shown in Figure 6.1. 
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Variables 
* COUNTER 
BASE 


COUNTER =1 
INPUT 
character 


END 
character 
? 





Store COUNTER 
at BASE 


Figure 6.1 Flowchart for inputting a list such as a sentence 


We shall use ‘return’ (ASCII &0D) as an end character. The address of 
the base is stored at &70 and &71 (the base will have a two-byte 
address). So the program starts with 


Listloclo = &00 
Listlochi = &30 


If, later, you wanted to use the program for a list with a base al another 
address, only these two numbers would have to be changed. 


The program is given in Program 6.1. 
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10 REM INPUT 


20 

30 MODE 7 

40 listloclo = &0 
50 listlochi = &30 
60 base = &70 : 
70 eol = &0D 

80 osrdch = &FFEO 
90 oswrch = &FFEE 
100 

110 DIM 2%100 

120 FOR pass = 0 TO 3 
130 P= 1% 

140 #3 

150 OPT pass 

160 

170 -input 

180 LDA #listloclo 
190 STA &70 

200 LDA #listlochi 
210 =STA &71 

220 =LDY #1 

230 

240 snext 

250 JSR osrdch 
260 JSR oswrch 
270 CMP #eol 

280 BEG length 
290 STA (base),Y 
300 ~=INY 

310 BNE next 

320 

330 «length 

340 DEY 

350 TYA 

360 LDbdY #0 

370 STA (base),Y 
380 

390 = RTS 

400 J 

410 NEXT pass 
420 


430 REM Test routine 


REM Plus &71 | 


| 


STEP 3 


\Get low-byte of address to store list 
\Store in zero Page 

\Get high-byte of address to store list 
\Store in zero Page 

\Set character counter 


\Get next character 

\Print character on screen 

\Is it ‘return'? 

\If yes, branch & store length 
\Store character in memory 


\Loop back for next character if < 
254 characters input 


\Adjust the counter to give length of list 
\Put length in A 

\Set pointer for base of list 

\Store length at start of list 


440 
450 
460 
470 
480 
490 
500 
510 
520 


CALL input 


REM Print out the contents of the memory block 
Length = 783000 . 
PRINT '' "Contents of &3001 to " ; ~&3000 + length ":" '' 
FOR N = &3001 TO &3000 + 283000 
PRINT CHRS(?N) ; 
NEXT 
PRINT 


Program 6.1 


240-310 This is the loop which accepts each character 


from the keyboard, tests whether it is the end 
character and, if not, stores it in memory at line 
290. 


330-370 Puts the length of the list in memory at the 


330 


Test run 


>RUN 


beginning of the list. 


At line 330, Y is 1 greater than the length so it 
has to be decremented at line 340. This new 
value is the length of the list which is put into 
the accumulator at line 350. Then Y is set to U 
(line 360) so that the length can be stored at the 
beginning of the list (line 370). 


THIS SENTENCE WAS PUT INTO MEMORY AT &3000 


Contents of &3001 to 302A: 


THIS SENTENCE WAS PUT INTO MEMORY AT &3000 


> 


Load Program 6.1 and test it with a sentence of your own. 


SAQ 1 


Write a version of Program 6.1 but using 0 as an end of list delimiter. 
(The list it creates will not need to have its length stored with it). 


SAQ 2 


Write a simplified version of Program 6.1 using absolute indexed X 
mode to transfer the characters to memory. 


137 


6.3 Printing a list 

Now that we have developed a routine for getting a list into memory, 
we need a routine for printing out the list using assembly lanyuaye 
instead of BASIC. Once we have that, we can develop routines for 
manipulating lists, knowing that at any stage we can print out the list to 
see what has happened to it. 

Since the lists may be lengthy, we shall print them across the screen 
with a space between each character: 


abc Gda@ wes 


The routine for doing this for a list with its length stored in the first byte 
is shown in Figure 6.2. 














Figure 6.2 Printing out a list 


SAQ 3 
Write a program to implement Figure 6.2. 


Use your program to print the list you stored in memory in SAQ 2 


138 


6.4 Sorting alist 


The method we are going to use to sort a list into alphabetical or 
numerical order is the ‘bubble’ sort. This involves working through the 
list comparing adjacent items. If they are in the correct order, they are 
left alone. If they are in the wrong order, they are interchanged. After 
the first pass through the list, the largest item will be at one end. After 
the second pass, the next largest item goes to the second highest 
position, and so on. This is the commonest method of sorting and you 
may have met it already. In BASIC it is accomplished by nested FOR ... 
NEXT loops which sort an array such as X%(N) as shown in Program 
6.2. 10 REM BASIC BUBBLE SORT 


20 
30 FOR KX = 1 TON - 1 
40 exchange = FALSE 
50 FOR L% = KX + 1 TON 
60 IF XZCLAZ) < XXZCKX) THEN TX = XACL%) = XRCL%) = XXCKK) 
: XA(K%) = TX 3 exchange = TRUE 
70 NEXT Li 
80 IF exchange THEN NEXT K% Program 6.2 


For assembly language sorting, the list will be of the form shown in 
Figure 6.3. We go through the list comparing adjacent items and 
swapping them if they are in the incorrect order. This is done until a 
complete pass through the list produces no exchanges. When this is the 
case the list will be fully sorted. To detect this situation we use a ‘flag’ 
variable which is set to 0 before each pass through the list. If an 
exchange occurs, the flag is set to -1. 


Because the bubble sort ‘bubbles’ the highest misplaced item up to its 
correct position, the unsorted part of the list becomes one item shorter 
after each full pass. So we can reduce the length of list that we search 
after each full pass and so speed up the sort. In assembly language, the 
bubble sort program follows a similar form, except that as there are no 
array structures, we use indirect indexed commands to read our 
unsorted items. 











base + 2 
base + 1 
Length of List base 


Figure 6.3 Unsorted list in memory 
The flowchart is shown in Figure 6.4. 
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140 


Find length of list 


flag = 0 


length . loge) 


















Get item Y 
LY=¥+] 
compare iter Y te item ¥+1 





Swap item Y and item Y+1 
Set flag 





Figure 6.4 Flowchart for bubble sort 


Program memory locations 


base 
len 

flag 
temp 


The base address of the list &70/1 
Length of the list &72 
Flag to indicate whether a swap has occured &73 
Temporary zero page store for the swap routine &74 


Notice that in lines 160 and 180 we have used a convenient method for 
extracting the low and high bytes of a 2-byte address. xxxx MOD &100 
extracts the low-byte and xxxx DIV &100 extracts the high-byte. 


10 REM BUBBLE SORT 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


MODE 


location = &3000 


base 
len 

flag 
temp 


3 


&70 
&72 
&73 
&74 


DIM Z%100 
FOR pass = 0 TO 3 STEP 3 


P% 
C 


7% 


OPT pass 


-sort 
#location MOD &100 


LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
LDX 


base 


#location DIV &100. 


base + 1 
#0 
(base),Y 
len 
#0 


-repeat 


STX 
DEC 
LDX 
LDY 


flag 
len 
len 
#1 


-nextpass 


LDA 
INY 
CMP 
BCC 
BEQ 
STA 
LDA 
DEY 


(base),Y 


(base),Y 
swapdone 
swapdone 
temp 

(base),Y 


\Find length of list 

\Store in len 

\X will be zero on every pass except 
the first 


\Turn off swap flag 
\Reduce length by 1 


\Fetch the next item 


\Compare to following item 
\If in right order, skip swap 


\Store ist item 
\Put 2nd item into A 
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400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


STA 
INY 
LDA 
STA 
DEC 


-SwWa 
DEX 
BNE 
LDA 
BNE 
RTS 
] 
NEXT 


REM Test routine 


(base),Y 
temp 
(base),Y 
flag 
pdone 
nextpass 


flag 
repeat 


pass 


\Put 


\Get 
\Put 
\Set 


end 


item in location of 


back ist item 
item in location of end 
swap flag on 


Ist 


\Get swap flag 
\If yes, repeat search 


Ist 


REM Seed random number generator to produce fixed random 


sequen 
X = RN 
FOR I 
271 = 
NEXT 
2&3000 


TIME 
CALL s 
time = 
PRINT 
PRINT 
FOR I 
PRIN 
NEXT 
PRINT 


ce 
D(-2) 


= &3001 TO &30FF 


RNOC&FF) 


= &FF 


0 
ort 
TIME 


' "Time for sort 
" "Sorted list:" 
= &3001 TO &30FF 
T TABCC(CI - &3001) MOD 18) * 4) ; 


was 


’ 


time / 100 ; 


71 


’ 


, 


se 


conds" 


Program 6.3 


The only tricky part of the program is the compare and swap procedure. 
If the items are in the right order, then 


320 LDA 


330 INY 


340 CMP 
350 BCC 
360 BEQ 


(base) ,Y 


(base) ,Y 
swapdone 
swapdone 


will have compared an item at Y + 1 with an item at Y. The exil 
through one of the branches will leave Y incremented ready for the next 
comparison. On the other hand, if the items are in the wrong order, 
lines 370 to 430 perform the swap. In the process Y is decremented 
(line 390) and then incremented (line 410) so the swap exit at line 440 
still leaves Y ready incremented for the next comparison. 
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Test run 
>RUN 
Time 
Sort 


1 
11 
25 
43 
64 
82 
102 
119 
134 
158 
186 
200 
217 
234 
255 


for sort was 0.67 seconds 
ed list: sd 


4. 7 7h “2. veo 3. #8 Me SCE OH BR OE H.-G? 10 
12,14 14 14 14 16 18 20 21 22 22 22 23 24 24 24 25 
25 27 28 28 28 30 30 32 35 36 38 38 38 39 39 40 42 
44 44 46 47 51 52 56 59 61 61 61 63 63 63 63 63 64 
66 66 67 71 71 72 72 72 #73 #73 +77 +78 80 80 80 81 82 
82 85 85 86 93 93 94 95 96 96 97 98 98 99 99 99 100 
103 106 107 107 107 107 107 109 109 110 112 113 114 114 118 118 119 
119 121 121 122 122 122 123 124 125 126 126 127 127 129 129 129 133 
135 137 137 138 138 138 138 139 143 143 147 149 149 151 152 154 154 
158 158 161 162 162 163 163 165 169 170 171 176 178 182 183 183 185 
187 190 190 190 190 192 192 193 193 193 193 195 196 200 200 200 200 
200 201 201 201 203 205 207 208 212 212 213 213 213 215 215 216 217 
218 219 219 220 221 223 223 224 225 225 226 229 229 229 232 232 233 
236 236 237 237 239 239 244 244 245 245 246 246 247 253 254 254 255 
255 255 


Load Program 6.3 and try it on blocks of numbers of your own. 


(If you wish to sort an ASCII list using 0 as a delimiter, the length 
counter will no longer be needed. This means that, not only do you 


avoid on 


e comparison in every loop, but, you can also then use the X 


register for ‘flag’ or ‘temp’ and produce a faster sort). 


This may be the first program which we have presented that does 
something visibly faster than the BASIC programs which you will have 


previous 


ly met. As you have observed, Program 6.3 sorts 255 numbers 


in a fraction of a second. Now compare how long BASIC takes with 


Program 


10 
20 
30 
40 
50 


60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


180 
190 


6.4 which includes a check on the time of the sort using TIME. 
REM BASIC BUBBLE SORT 


MODE 3 

DIM X%(255) 

REM Seed random number generator to produce same sequence 
as for Program 3 

X = RND(-2) 


FOR N&% = 
XK(N%) 
NEXT 


1 TO 255 
= RND(255) 


TIME = 0 


FOR K% = 1 TO 254 
exchange = FALSE 
FOR L% = K% + 1 TO 255 
IF X%(L%) < XXCKX) THEN TX = XZCLK%) s XACLK%) = XKCK%) 
: XA(K%Z) = TK : exchange = TRUE 
NEXT Lz 
IF exchange THEN NEXT K% 
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200 
210 now = TIME 
220 PRINT "Sort time was " ; now / 100 ; " seconds." '' 
230 FOR NX = 1 TO 255 
240 PRINT TABCC(NZ - 1) MOD 18) * 4) 5 XKZONK) 5G " " G 
250 NEXT 

Test run 


>RUN 
Sort time was 111.12 seconds. 


tt & @€ 2 2 Bo we «eS F 6 FF oS & 10 10 «(10 
11.12 14 146 #14 146 16 18 20 21 22 22 22 23 246 246 24 25 
25 25 27 28 28 28 30 30 32 35 36 38 38 38 39 39 40 42 
43 446 44 46 47 51 52 56 59 61 61 61 63 63 63 63 63 64 
64 66 66 67 71 71 72 72 72 73 73 #77 #78 80 80 80 81 82 
82 82 85 85 86 93 93 94 95 96 96 97 98 98 99 99 99 100 
102 103 106 107 107 107 107 107 109 109 110 112 113 114 114 118 118 119 
119 119 121 121 122 122 122 123 124 125 126 126 127 127 129 129 129 133 
134 135 137 137 138 138 138 138 139 143 143 147 149 149 151 152 154 154 
158 158 158 161 162 162 163 163 165 169 170 171 176 178 182 183 183 185 
186 187 190 190 190 190 192 192 193 193 193 193 195 196 200 200 200 200 
200 200 201 201 201 203 205 207 208 212 212 213 213 213 215 215 216 217 
217 218 219 219 220 221 223 223 224 225 225 226 229 229 229 232 232 233 
234 236 236 237 237 239 239 244 244 245 245 246 246 247 253 254 254 255 
255 255 255 


Program 6.4 
BASIC, as you can see, here took 166 times as long as our machine-code 


program to do this sort. (However, the BASIC routine could have 
managed 4-byte integers which our machine-code program could not.) 


SAQ 4 


How would you modify Program 6.3 to sort in descending order? 


6.5 Searching an ordered list 

If we want to find whether or not an item is in a list, we can start at the 
beginning and work through, comparing each item against the search 
item. If the list is unordered then a sequential search of this type is the 
only method of searching. 


Ordered lists can be searched more efficiently (unless they are very 
short). One such method for ordered lists is the ‘bisection’ (or ‘binary’) 
search. The method is as follows: 


QO Divide the list of items into half and ask ‘is the target item equal to 
the half-way item, above it, or below it?’ 


0 If ‘equal’ then the target item is in the list. 


0 If it is below, then discard the top half of the list (including the old 
middle item). 
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0 If it is above, discard the bottom half (including the old middle 
item). 


OC Repeat the above procedure until the search item is found or there is 
no more list to search. 


To keep track of what is happening, we label the end positions of the 
list ‘low’ and ‘high’. These values change as we narrow down the 
section of the list to be searched. 


On average, it will require N/2 comparisons to search an unsorted list of 
N items. A list of 1000 items will take 100 times as long to search as a 
list of 10 items. On the other hand, a binary search of list of 1000 sorted 
items takes, on average, only 3 to 4 times as long as a search of ten 
items. 


Example 3 

An ordered list contains the items A, F, I, M, P, T, U, Z. Use the 
bisection search procedure to find whether or not P is in the list. (In 
practice you shouldn't use a bisection search to search such a short list 
—a sequential search would be quicker.) 


> = 
nm MN 
mw 
uM 
Aan 
cw 
No 


low = 1: high = 8 

mid = (1 + 8)/2 = 4 (ignore remainder) 

Divide list at item 4 

Does P = item 4? No 

Is P < item 4? No 

Discard bottom half and mid-point. So new low = 5. 
low = 5: high = 8 6 
mid = (5 + 8)/ 2 = 6 (ignore remainder) T 
Divide list at item 6 

Does P = item 6? No 

Is P < item 6? Yes 

Discard top half and mid point. So new high = 5. 

low = 5: high = 5 5 
mid =(5+5)/2=5 P 
Divide list at item 5. 

Does P = item 5? Yes 

So P is in the list. 


zr SS 


SAQ 5 
Use the above method to search for V. What happens? 


Now that we have established how the ‘not found’ state is identified, 
we can draw the flowchart. This is shown in Figure 6.5. 
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HIGH = length 
Low=1 


POINTER =INT (HIGH +Low) /2) 





POINTER =PowTER+ 1 PoINTER = PoInTER~1 
Low = PoINTER HIGH = PoINTER 


Figure 6.5 Flowchart for bisection search 


The program memory usage 


base Contains the low byte of the address of the list &70 
The high byte is in the following location &71 
low The lower end of the part of the list being searched &72 
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high The upper end of the part of the list being searched &73 


query The item being searched for &74 


flag 


. 


is not present 


fiag’t This is set to 1 if query is present and to 0 if query 


result At the end of the run, result holds the outcomeof &75 


the search. If query was found, result holds its 
position in the list. If query was not found, 
result holds the position after which query 
would be if it were in the list. 


From line 270 onwards, the pointer to the current search position in the 
list is the Y register. (Prior to that, Y is used to set up the initial values 
of high and Low.) ; 


If you were going to use the program as a subroutine in a larger program 
then you would need a flag to indicate ‘found’ or ‘not found’. We have 
omitted this from the program since we wanted a clear visual means of 
displaying ‘found’ or ‘not found’. The program outputs a * if the query 
item is found and a ! if it is not found. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


REM SEARCH 
MODE 7 
oswrch = &FFEE 


star = ASC "x" 
pling = Asc "!" 
base = &70 
low = &72 
high = &73 
query = &74 


result = &75 


DIM 2%100 

FOR pass = 0 TO 3 STEP 3 
P% = 2% 
C 
OPT pass 
-search 
LOY #0 \Pointer to base of list 
LDA (base),Y \Get length of list 
STA high \Store in ‘high' 
INY 
STY low \Set ‘low' to 1 
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260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


. loop 

LDA high 

CMP low \Is high >= low? 

BCC notfound \If not, query is not in List 
CLC 


ADC low \Add low to high 

ROR A \Divide by 2 (discarding remainder) 

TAY 

LDA query \Fetch search item 

CMP (base),Y \Compare it to item at pointer 

BCC lower \Look lower down list 

BEQ found \Query is in list 

«higher 

INY \Move middle up 1 item 

STY low \Make this the new low 

BNE loop \Y¥ cannot be 0 

. lower 

DEY \Move middle down 1 item 

STY high \Make this the new high 

JMP loop 

. found 

STY result \Found so, store position of item 

LDA #star \Load 'found' marker 

JSR oswrch \Output marker 

RTS 

-notfound 

LDA high \Item not found above high 

STA result \Store high as pointer to where item 
belongs 

LDA #pling \Load 'not found' marker 

JSR oswrch \Output marker 

RTS 

J 

NEXT pass 


REM Test routine 
REM Put test List into memory 


2783001 = 42 
783002 = 56 
7&3003 = 67 
783004 = 72 
283005 = 80 


730 ?7&3006 = 90 
740 REM Put length at base 
750 27&3000 = 6 


760 ?base = 0 . 

770 base?1 = &30 

780 

790 REPEAT 

800 PRINT 

810 INPUT “Enter search item " target 

820 ?query = target 

830 PRINT “Result (* = in List, ! = not in list): " ; 

840 CALL search 

850 PRINT ' "Position of item/position after which item 

would be: " ; ?result 

860 UNTIL FALSE Program 6.5 
Test run 

>RUN 


Enter search item 67 
Result (* = in List, ! = not in list): * 


Position of item/position after which item would be: 3 


Enter search item 95 
Result (* = in list, ! = not in List): ! 


Position of item/position after which item would be: 6 


6.6 Inserting an item into an ordered list 


We wrote the bisection search routine in the last section so that it 
provides us with the position that ‘query’ would occupy if it were in 
the list. (Actually it gives the position after which it would appear). 
This is essential information if we are to be able to insert a new item 
into an ordered list. (We are assuming that we are only dealing with 
lists in which no two items are the same so that a new item will not be 
added to the list if it is already there). 


Suppose we have a list of length L and wish to insert a new item after 
item P. The procedure for doing this is shown in Figure 6.6. 


List before Split at Move up Insert 
insertion P top par 
1 location 
t 
Items 
Bu 
aes Position New item 
STs <—p+1 >L1*— inserted 
Items Move 
P+ItoL up 
v “_-<—. 
Litems 
(L+1) items 


Figure 6.6 Adding an item to an ordered list of length L 
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SAQ 6 

Draw an outline flowchart for inserting an item into an ordered list of 
length L. The new item is to go in after item P. Include in the flowchart 
a check on whether or not the query item is in the list. 


We can now turn this into an assembly language program. The program 
will first call ‘search’ (Program 6.5) as a subroutine. If the query item is 
in the list, that is the end of the run. If it is not in the list, ‘search’ tells 
us where to insert the item. We subtract ‘result’ from ‘length’ (lines 
150-180) and store the value in the X register. X holds the number of 
items to move up in order to create the space for the new item. 


190 - 250 Find whether or not ‘query’ is already in the 
list: 

270 - 350 Find how many items need to be moved. 

370 - 440 Move the items up to create the space. 

460 - 500 Insert the new item ('query'). 

510 - 530 Store the new length back at the base of the 
list. 


Calling the ‘search’ subroutine 

This is the first program in which we need to incorporate a previous 
program as a subroutine. This is done in a similar manner to calling a 
subroutine in BASIC. First, note that the ‘search’ program (like all 
assembly programs) is of the form 


Label -search 


Return instruction RTS 


From BASIC we would call such a program by a label (CALL search) or 
memory location (CALL 2%). But if we call it by 


JSR search 


from within our program, the search subroutine will be executed and 
then the program will continue with the next instruction after JSR 
search. 
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Here is the full insert program incorporating ‘search’ as a subroutine. 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


REM INSERT 


MODE 7 
listloclo = 0 


listlochi = &30 

base = &70 : REM Plus &71 
low = &72 

high = &73 

query = &74 


result = &75 
length = &76 


DIM 2%150 


FOR pass = 0 TO 3 STEP 3 


PX = 1% 
C 
OPT pass 


-insert 

LDA #listloclo 
STA base 

LDA #listlochi 
STA base + 1 
JSR search 

BCS exit 


-additem 

Loy #0 

LDA (base),Y 
STA length 
TAY 

SEC 

SBC result 
BEQ itemin 
TAX 


-move 
LDA (base),Y 
INY 

STA (base),Y 
DEY 

DEY 

DEX 

BNE move 


-itemin 
INY 


\Find if query is already in list 
\If in list, skip insert routine 
\Set pointer to base of list 
\Find length of List 

\Find No of items above query 

\If query goes at top of List, skip move 
\Store in X 

\Get item to move up 

\Store it one location up 

\Move pointer back for next item 
\Move pointer back for next item 


\Decrement item counter 
\Loop back if more to move 


\Move pointer up 
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480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


980 


LDA query 
STA (base),Y 
INC Length 
LDA length 
LbY #0 

STA (base),Y 


exit 
RTS 


-search 

LDA #0 

TAY 

LDA (base),Y 
STA high 

LDA #1 

STA low 


~checkend 
LDA high 

CMP low 

BCC notfound 
cLc 

ADC low 

ROR A 

TAY 

LDA query 
CMP (base),Y 
BCC lower 
BEQ@ found 


-higher 

INY 

STY low 

JMP checkend 


- lower 

DEY 

STY high 

JMP checkend 


- found 

TYA 

STA result 

SEC 

JMP searchdone 


-notfound 
LDA high 
STA result 


cLc 


\Get query item- 
\Insert in gap 
\Add 1 to length 


\Pointer to base of list 
\Store new length 


\Pointer to base of list 
\Find length of list 
\Store in ‘high' 

\Set 


‘low’ to 1 


\Is high >= low? 
\If not, item not in list 


\Add low to high 
\Divide by 2 


\Fetch search item 

\Compare with item at pointer 
\Look lower down List 

\Item is in list 


\Move mid up 1 item 
\Make this the new low 


\Move mid down 1 item 
\Make this the new high 


\Found, so 
\Store position of item 
\And set carry 


\Item not found above high 

\Store high as pointer to where item 
belongs 

\Item not found. Clear carry 


990 


1000 .searchdone 

1010 RTS 

1020 J . 

1030 NEXT pass 

1040 REM Test routine 

1050 REM Put List into memory at &30000 

1060 ?&3001 = 50 

1070 ?&3002 = 60 

1080 ?&3003 = 70 

1090 REM Store length of list 

1100 ?&3000 = 3 

1110 

1120 REPEAT 

1130 PRINT ' "List is now as follows:" 

1140 FOR I = &3001 TO &3001 + 783000 - 1 

1150 PRINT ; ?1 ane 

1160 NEXT 

1170 PRINT ' 

1180 INPUT "Enter item to insert in.list: " query 

1190 27874 = query 

1200 CALL insert 

1210 UNTIL FALSE Program 6.6 
Test run 

>RUN 

List is now as follows: 

50 60 70 

Enter item to insert in List: 45 

List is now as follows: 

45 50 60 70 

Enter item to insert in list: 67 

List is now as follows: 

45 50 60 67 70 

Enter item to insert in list: 60 

List is now as follows: 

45 50 60 67 70 

Enter item to insert in list: 0 

List is now as follows: 

0 45 50 60 67 70 

Program 6.6 


SAQ 7 


The ‘insert’ program does not check that there is room in the list for the 
new item. How would you modify the program to incorporate a check? 


Extending the insert program 


If you wanted a full insert and delete routine then you could extend 
Program 6.6 to do this, using the memory block move routine. 


153 


6.7 Putting lists in memory 


You have seen that creating strings or lists of data in assembly languaye 
is tedious. One way of avoiding this is to place the data as a string ala 
fixed memory location using BASIC. This string can then be accessed 
using assembly language. In this way we can place lists and tables in 
memory using BASIC (which is slow) but use them using assembly 
language (which is fast). 

Placing a string of letters in memory 

As you have previously seen, the statement 


DIM $%20 


will reserve 20 bytes of memory at the location ‘pointed to’ by S'%. I i 
is followed by the statement 


$S% = "TEST STRING" 


then the string “TEST STRING” will be in bytes 0 to 10 of the 20 bytos 
with &D (carriage return) in byte 11. Notice that the $ sign precedes S'% 
($S% is not the same as S$). You can access any one byte of the string 
by 


S%2N 
where N is a number indicating the position required in the string 


This is demonstrated by Program 6.7 which: 


40 Puts "TEST STRING" into memory at $S% 

80 Prints out its 4th character using $%?3. (The 
first character is $%20.) 

120 - 140 Prints out the whole string character by 


character using S%?N 


10 REM FIXED LOCATION STRINGS 

20 

30 DIM $%20 

40 $S% = "TEST STRING" 

50 

60 REM Access a single character 

70 PRINT "4th character of string: " ; 
80 PRINT CHR$(S%23) 

90 

100 REM Or access the whole of the string 
110 PRINT "Full string at S%: " ; 

120 FOR N = 0 TO LEN($S%) - 1 

130 PRINT CHRS(SX%2N) ; 

140 NEXT 


150 PRINT Program 6,7 
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Test run 


>RUN 


4th 


character of string: T 


Full string at S%: TEST STRING . 


You can also change any one byte of the string with the statement: 


SKIN 


In Program 6.8, you can change any single character in the string S%. 
Notice that the character input into C$ (e.g. 8) must be changed into its 
ASCII code (66 for 8) before being placed in the string. This is done 
with ASC(C$). 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


Test run 


>RUN 


REM CHARACTER CHANGE IN FIXED STRINGS 


DIM S%20 
$S% = "TEST STRING" 


INPUT"Position to be changed "P 

INPUT "New character " C$ 

REM Put new character at position P in S% 
S%?P = ASC(CS$) 

PRINTSS% 


PRINT "Contents of full string at S%: " ; 
FOR N = 0 TO LEN($S%) - 1 

PRINT CHRSC(S%?N) ; 

NEXT 
PRINT 


Position to be changed 3 


New 


character B 


TESB STRING 
Contents of full string at S%: TESB STRING 


Program 6.8 


This method can also be used to put single byte numbers into a list in 
memory. If we save space for a list L of 20 bytes using DIM L%20 we can 
then place single byte numbers into that list. For example: 


>DIM L%20 
>L%22 = &08 Puts &08 into byte 2. 
>L%7276 = B2A Puts &2A into byte 6. 
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Check: 


>P.~L%?2 
8 

>P.~L%76 
2A 


We can adapt the technique by using ! (pling) in place of ? to allow us 
to place 4 one-byte numbers into consecutive locations. 


Example 4 
Store the numbers 


&5, &3, &57, &49, &82, &17, BAZ, &1B 
in positions 0 to 8 in a list S%. 


Solution 
We could do this byte by byte using $%?N =... but it only needs two 
statements using !: 


$%!0 = 849570305 
S%4!4 = &1BA31782 


To see how this works, let’s examine the second of these two 
statements. 
insert 4 bytes starting at position 4 in S% 
S%!4 = &1BA31782 
msb lsb 


If we were to examine the memory after executing $%!0 = &49570305 
and $%!4 = &1BA31782 we would find: 


S% 5 3 57 49 82 17 AZ 1B 


Byte No. 0 1 2 3S \% 5 6 # 8 
You can also place large decimal numbers into memory using !. 
Example 5 

83000 = 12345678 


places the number 12345678,, into the four memory locations &3000 to 
&3003 where it is stored as 


78 97 #188 O. 
You can confirm that it is 12345678 by calculating 
78 + (97 * 256) + (188 * 2567) + (0 * 256%) = 12345678. 


Or, if you want to know the value of the four byte number stored at 
&3000 to &3003, type 


P. !&3000. 


The result, 12345678, is printed out. 
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SAQ 8 
Write a BASIC program to place a string of your choice at a fixed 
location. Then replace all A’s and a’s in the string with *. Make the 


program print out the revised string from memory to confirm the 
changes. 


SAQ 9 

Write a BASIC program to place ten numbers in memory. Then search 
the list to see whether the number 65 is present. If it is, change it to 97. 
Make the program print out the revised list. (The numbers must be less 
than &100). 


Using $space as an address 
When you reserve memory with a statement such as 


DIM $space%50 


the variable space% takes the value of the address where the computer 
has placed $space%. You can use space% as an address in assembly 
language programs and write instructions such as 


LDA spacez, 'Y' 


This we shall now do in some examples. 


6.8 Look-up tables 


We looked at the last section in terms of BASIC but it easily extends to 
assembly language. If the lists are placed in memory using BASIC, they 
can be accessed using assembly language. For example, to access the 
3rd number (byte 2) of the list S%, we write 


LDY #2 
LDA Si,Y 


or, 


LDX #2 
LDA S%,X 


This will load the accumulator with the 3rd number in the list S%. We 
shall use this to write a program to code words and phrases. The 
method is called a ‘look-up table’ since we look up a list in memory to 
see what is at a given position. 


Simple code program 

The code works by listing the alphabet plus the character ‘space’ in the 
usual order. Then the same characters are listed in any order you like 
underneath. To code a word, find each character in the normal order 
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list and replace it with whichever character is in the other list. For ou 
demonstration program, the code is very simple: 


Alphabet ABCOEF I KL 
Code #2YXwy s QP 


GH J 
UT R 
where # indicates a space between words. 


MNOPQ@RSTUVWXY2Z*s 
ONMLKJIHGFEOCBA 


e.g. HELLO codes as TWPPM 
HELLO FRED codes as TWPPMAVJWX 


A flowchart for the coding process is shown in Figure 6.7. 





Figure 6.7 Simple code routine 
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The program for the simple code is shown in Program 6.9. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


REM SIMPLE CODE 1 

DIM D%27, BA27, T%30, 2%100 

$D% = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "— * 
$B% = " ZYXWVUTSRQPONMLKJIHGFEDCBA" 
oswrch = &FFEE 


FOR pass = 0 TO 3 STEP 3 


P% = 1% 

C 

OPT pass 

-code 

LDX #0 \Set character position counter 

-next 

LDY #28 \Alphabet pointer - works from top to bottom 

-search 

DEY \Move alphabet pointer to next character 

LDA T%,X \Fetch the next character from string 

CMP D%,Y \Same as alphabet character at Y? 

BNE search \If no, loop back 

LDA Bz,Y \If yes, get code character from B% 

STA T,X \And substitute in string for alphabet 
character 

JSR oswrch \Print code character just inserted 

INX \Move along to next character to code 

CMP #8&D \Was last character ‘return'? 

BNE next \If no, loop back 

RTS 

] 

NEXT pass 


REM Test routine 
REPEAT 
INPUT "Enter a string to be coded: " $T% 
PRINT "Coded string is: "; 
CALL code 
PRINT ' 


UNTIL FALSE Program 6.9 
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Test run 


>RUN 


Enter a string to be coded: TEST STRING 

Coded string is: HWIHAIHJSNU 

Enter a string to be coded: THIS IS A CODING PROGRAM 
Coded string is: HTSIASIA AYMXSNUALJMUJ 0 


Program 6.9 is not a very efficient method of doing this coding 
operation — it can be done much more easily without using look-up 
tables since we can convert ASCII letter codes 65 to 90 to 1 to 26 using 
masking (see section 7.9). The more efficient program would then be: 
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10 REM SIMPLE CODE 3 
20 DIM B%27, T%30, 2%100 


30 $B% = " ZYXWVUTSRQPONMLKJIHGFEDCBA" 
40 oswrch = &FFEE 

50 

60 FOR pass = 0 TO 3 STEP 3 

70 PX = 2% 

80 C 

90 OPT pass 

100 

110 -code 

120 LDX #0 \Set character position counter 
130 

140 next 


150 LDA T%,X \Fetch the next character from the string 

160 CMP #&D 

170 BEQ exit \Exit if character is ‘'return' 

180 AND #8&1F \Convert ASCII letter to code between 1 and 26 
190 TAY \Position of letter now becomes pointer 

200 LDA BZ,Y \Point to letter in code list 

210 JSR oswrch \Print converted letter 


220 INX 

230 BNE next \Loop back 

240 

250 exit 

260 RTS 

270 ] 

280 NEXT pass 

290 

300 REM Test routine 

310 REPEAT 

320 INPUT “Enter a string to be coded: " $T% 
330 PRINT "Coded string is: " ; 
340 CALL code 

350 PRINT ' 


360 UNTIL FALSE 
Program 6.9b 


Conversion program 

An assembly language program may require data which has to be 
converted e.g. inches to centimetres or degrees Fahrenheit to degrees 
Centigrade. This could be done by coding the conversion formula but it 
is often easier to use a look-up table which ‘stores all the possible 
conversion results. It is also faster since the look-up process is 
extremely quick. Here is a program to convert a temperature in 
Fahrenheit to Centigrade by means of a look-up table. 


First we must store the temperatures in a list. This is done in BASIC 
before the program is assembled: 


10 DIM B%212 

20 FOR F = 32 TO 212 

30 BY2F = (5 / 9) * CF - 32) 
40 NEXT 


The list B% can be accessed by the assembly language routine at 
extremely high speed. The full program is shown in Program 6.10. 


10 REM TEMPERATURE LOOK-UP 

20 

30 DIM B%212, 2%50 

40 

50 REM Set up look-up table 

60 FOR F = 32 TO 212 

70 B“2F = (5 / 9) * CF = 32) 
80 NEXT 

90 Faren = &70 

100 Cent = &71 

110 P% = 2% 

120 C 

130 OPT 1 

140 

150 .convert 

160 LDY Faren Fetch temp in Fahrenheit 


170 LDA B%,Y Look up temp in Centigrade 

180 STA Cent Store result in Cent 

190 

200 RTS 

210 J 

220 

230 REM Test routine 

240 

250 REPEAT 

260 

270 INPUT ' "Enter temperature in Fahrenheit: " F 
27&70 = F 

290 CALL convert 

300 PRINT "Temperature in Centigrade is: " ; ?&71 
310 


320 UNTIL FALSE Program 6.10 
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Test run 
>RUN 


Enter temperature in Fahrenheit: 32 
Temperature in Centigrade is: 0 


Enter temperature in Fahrenheit: 212 
Temperature in Centigrade is: 100 


Enter temperature in Fahrenheit: 89 
Temperature in Centigrade is: 31 


Program 6.10 


You will notice that at the start of the run of Program 6.10 there is a 
pause whilst the look-up table is filled by the BASIC program at lines 
60-80. It is important to fill look-up tables before they are needed. In 
this way they can be accessed at very high speed. 


If you need more than one look-up table in a program then it is best to 
use indirect addressing. You can then switch from one table to another 
just by changing the base address pointer. Additionally, with indirect 
addressing it becomes possible to have a table of more than &100. 


Assignment F 


1. Modify Program 6.6 to make it delete an item from a list. Test your 
program on a suitable list. 


2. Modify Program 6.3 to cater for 2-bit items. 


Objectives of Unit 6 

In the objectives below, all lists refer to lists of 1-byte numbers. 
After studying this unit you should be able to write programs to: 
O Use OSRDCH to input characters from the keyboard. 


O Set up a list in memory starting at a base address and incorporating a 
record of its own length. 


QO Print out a list from memory. 


0 


Sort a list in memory. 


O Search an ordered list to find whether or not an item is in it. If the 
item is not in the list, the program should indicate where the item 
should be in the list. 


O Insert an item into an ordered list. 
O Use look-up tables. 
You should also be able to use the following techniques: 


O $ as a prefix to a string to place it in memory space reserved for the 
string. 


O ?N to access the Nth byte of a string. 
O ?N to alter the Nth byte of a string. 
0 ! to access a byte of a 4-byte number. 
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Answers to SAQs 


SAQ 1 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


190 
200 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


REM INPUT 

MODE 7 

listloclo = &0 

listlochi = &30 

base = &70 : REM Plus &71 
eol = &0D 


osrdch = &FFEO 
oswrch = &FFEE 


DIM 2%100 

FOR pass = 0 TO 3 STEP 3 
PX = 2% 
C 
OPT pass 
- input 
LDA #listloclo \Get low-byte of address to store 

\list 
STA &70 \Store in zero Page 
LDA #listlochi \Get high-byte of address to store 
\list 

STA &71 \Store in zero Page 
Loy #0 \Initialise character counter 
next 
JSR osrdch \Get next character 
JSR oswrch \Print character on screen 
STA (base),Y \Store character in memory 
INY \Increment character counter 
CMP #eol \Was last character 'return'? 
BNE next \If not, loop back for next character 
LDA #0 \Set 0 for end of list 
STA (base),Y \Store O at end of List 
RTS 
] 
NEXT pass 


REM Test routine 
PRINT "Enter characters for input routine." 
CALL input 


REM Print out the contents of the memory block 
PRINT ' “Characters read back from memory block:" 


N = &3000 - 1 

REPEAT 
N=N41 
IF 2N <> O THEN PRINT CHRSC(?N) ; 
UNTIL ?N = 0 

PRINT 
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Test run 


>RUN 
Characters input at keyboard: 


THIS SENTENCE WAS PUT INTO MEMORY AT &3000 


Print out the contents of the memory block: 


THIS SENTENCE WAS PUT INTO MEMORY AT &3000 


The BBC Micro has a much more powerful input routine that can 
accept a whole line of input. This routine, OSWORD with A = 0, will 
be described in Unit 8. 


SAQ 2 


164 


10 REM INPUT 

20 

30 osrdch = &FFEO 
40 oswrch = &FFEE 
50 DIM 2%100 


60 

70 FOR pass = 0 TO 3 STEP 3 

80 PX = 1% 

90 C 

100 OPT pass 

110 

120 - input 

130 LDX #1 \Set character counter 

140 

150 next 

160 JSR osrdch \Get next character 

170 JSR oswrch \Print on screen 

180 CMP #&0D \Is it return? 

190 BEQ@ length \If yes, branch and store length 

200 STA &3000,X \Store character in memory 

210 INX \Add one to counter for next 
character 

220 BNE next '  \Loop back for next character 

230 

240 . length : 

250 DEX \Adjust counter to length 

260 STX &3000 \Store length at start of list 


270 


280 = RTS 

290 3] 

300 NEXT pass . 

310 

320 REM Test routine 

330 REPEAT 

340 PRINT ' "Enter a string: " ; 

350 

360 CALL input 

370 

380 PRINT '' "Read back string from memory 
block: " ; 


390 = Length = ?&3000 
400 IF length = 0 THEN 440 
410 FOR I = &3001 TO &3000 + Length 


420 PRINT CHRS$(?1) ; 
430 NEXT 
440 PRINT 


450 UNTIL FALSE Program 6.12 


Test run 
>RUN 


Enter a string: TEST STRING 


Read back string from memory block: TEST STRING 


Enter a string: 


Read back string from memory block: 


Enter a string: A 


Read back string from memory block: A 


(Note that we have tested that the routine will cope with a null entry). 
The differences between the two programs are: 


(a) The base address (&3000) is used in the program itself and is 
not stored in zero page. 


(b) X is now the counter. 
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SAQ 3 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


Test run 


REM LIST PRINT 
2&70 = 0 

2871 = &30 
oswrch = @FFEE 
osrdch = &FFEO 
space = ASC " " 


DIM 2250 


FOR pass = 0 TO 3 STEP 3 


PZ = 1% 
[ 
OPT pass 


eprint 

LDY #0 

LDA (&70),Y 
TAX 


-next 

INY 

LDA (&70),Y 
JSR oswrch 
LDA #space 
JSR oswrch 
DEX 

BNE next 


RTS 
J 
NEXT pass 


REM Test routine 


CALL print 


>RUN 


R 0 


SAQ 4 


YGBIV> 


\Pointer to base of list 
\Load Length into A 


\Move pointer to next item 
\Load item into A 

\Print character 

\Space character 

\Print a space 


\End of list? 


Program 6.15 


Change line 350 to ‘BCS swapdone’ and delete 360. 
Alter Program 6.2 with this modification and confirm that it work: 
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SAQ 5 


>= 
nM 
me WG 
= + 
vu 
Ao 
cn 
™ Cc 


low = 1: high = 8 

Mid = (1+ 8)/2=4 

Divide list at item 4 

Does V = item 4? No 

Is V item 4? No 

Discard bottom half and mid point. So new low = 5. 


Mid = (5 + 8)/2=6 6 
Divide list at item 6. T 
Does V = item 6? No 

Is V item 6? No 


Discard bottom half and mid-point. So new low 


Mid = (6+ 8)/2=7 7 
Divide list at item 7. U 
Does V = item 7? No 

Is V item 7? No 

Discard bottom half and mid-point. So new low 
Mid =(7+8)/2=7 7 
Divide list at item 7. U 
Does V = item 7? No 

Is V item 7? No 

Discard bottom half and mid-point. So new low 
Mid = (8 + 8)/2=8 8 
Divide list at item 8. z 
Does V = item 8? No 

Is V item 8? Yes 

Discard top half and mid-point. So new high = 7. 


=+ 


il 
@ 


ll 
> 


I 
= 


Now low = 8 and high = 7, which doesn’t make sense. This has 
occurred because V is not in the list. If the item is not in the list the 
search results in low exceeding high. 
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SAQ 6 





Figure 6.8 Inserting an item into an ordered list 
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SAQ 7 
Add 


294 
296 


CMP #8&FF \Compare to maximum Length 
BCS exit \If full, leave subroutine 


In addition, for a working program, you need to set a ‘list full’ indicator 
to warn the user that the item was not added. 


SAQ 8 
10 REM REPLACE ROUTINE 
20 
30 DIM $%30 
40 REPEAT 
50 
60 INPUT "Enter string to be processed " $S% 
70 FOR I% = 0 TO LEN($S%) 
80 IF S471% = ASCC("A") OR SK2T% = ASC("a") 
THEN SX%?71% = ASC("*") 
90 NEXT 1% 
100 PRINT $S% 
110 = PRINT 
120 
130 UNTIL FALSE Program 6.14 
Test run 
>RUN 
Enter string to be processed HELLO 
HELLO 


Enter string to be processed ART 


*RT 


Enter string to be processed a lot of aaaaaaaa...s 
* lot of #kkKKKKK. JOS 


SAQ 9 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 


REM REPLACE ROUTINE 


MODE 3 
DIM HX%10 
FOR IX = 0 10 9 
INPUT “Next number? " number 
HX?1% = number 
NEXT I% 
PRINT "Numbers as entered: " TAB(28) ; : PROCprintnumber 
FOR 1% = 0 T0 9 
IF HR271% = 65 THEN HA71% = 97 
NEXT I% ; 
PRINT “Numbers after processing: " TAB(28) ; : PROCprintnumber 
END 
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150 
160 DEF PROCprintnumber 
170 FOR KX = 0 T0 9 


180 PRINT ; H27KZ 7 " " | 
190 NEXT K% 
200 PRINT 


210 ENDPROC 


Test run 


>RUN 

Next number? 12 

Next number? 67 

Next number? 89 

Next number? 65 

Next number? 34 

Next number? 2 

Next number? 8 

Next number? Q 

Next number? 12 

Next number? 16 

Numbers as entered: 12 67 89 65 34 2 8 O 12 16 
Numbers after processing: 12 67 89 97 34 2 8 0 12 16 
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UNIT 7 


The stack, CALL, USR and 
masking 


7.1. How subroutines work 
7.2  Thestack 
7.3 Using the stack as memory 
7.4 Saving the registers on the stack 
7.5 Passing parameters via the stack 
7.6 Passing parameters via A%, X%, Y% andC% 
7.7. Passing parameters via CALL 
7.8 USR 
7.9 AND, ORA and EOR 
Assignment G 
Objectives of Unit 7 
Answers to SAQs 


171 


7.1 How subroutines work 


All the programs we have written (except Program 6.6) have been 
written as single routines. Program 6.6 contained two subroutines 
(search and additem). search was called by JSR search after which the 
second routine, additem, was executed if the search showed that the 
query item was not in the list. We have also used some of the built-in 
operating system subroutines such as OSWRCH. We are now going to 
consider in more detail how a subroutine works. 


To keep things simple, we shall look at a program that just displays two 
characters. In Program 7.1, the subroutine OSWRCH is called twice. 
Each time it is called, the program execution jumps to a machine code 
language routine which is executed before control is handed back to the 
main part of the program. 


10 REM SUBROUTINES 


20 

30 oswrch = &FFEE 
40 

50 P% = &2000 

60 COPT 1 

70 


80 .display 

90 LDA #ASC"A" 
100 JSR oswrch 

110 LDA #ASC"B" 
120 JSR oswrch 


140 RTS 
150 J 
170 CALL display 
Program 7.1 
Execution of this program follows the pattern shown Figure 7.1. 
‘display 
LDA &70 SUBROUTINE 


OSWRCH 





=- 
se 
= 
=- 


Figure 7.1 Two calls of the OSWRCH subroutine 
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The method by which the program calls the subroutine is clear enough 
since the call itself tells us. i.e. 


JSR oswrch where oswrch is &FFEE 


tells the program to go to memory location &FFEE and continue with 
whatever instructions it finds there. But how does the subroutine 
transfer control back to the program and how does the program know 
which instruction to do next? The answer lies in the stack. 


7.2 The stack 


The stack is an area of memory. In the case of the 6502 microprocessor, 
the stack area is Page One i.e. locations &100 to &1FF. It is shown in 
Figure 7.2. 


MEMORY 


The stack——>|_ PageOne —s_| &I00-& IFF 
&O —&FF 


Figure 7.2 The stack resides in Page One 


For most of the time you do not address the stack by memory location. 
Instead you can put a number onto the top of the stack or pull a number 
off the top of the stack. Hence the name stack. It behaves like a stack of 
plates. If you want a plate you take it from the top of the pile. If you 
want to add a plate to the pile, you put it on the top. The plate analogy 
is illustrated in Figure 7.3a. However, the stack differs from a pile of 
plates in that all &100 locations in Page One form the stack and the 
locations themselves are not taken on and off the stack. Instead, a 
pointer called the stack pointer points to the current next free 
location in the stack and, just as with any other memory location, data 
is stored in, and copied out of, the stack (see Figure 7.3b). 


=e 


Figure 7.3a Pushing and pulling plates off a pile 
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—Pull 





Figure 7.3b Pushing and pulling numbers from the Page One stack 


The stack is said to have a LIFO structure: Last In First Out. In other 
words, if you put data onto the stack, the last item which you put in 
will always be the item on the top. So, when you come to take an item 
off the stack, it is bound to be the last one that you put in. 


So far, we have emphasised accessing the stack through pushing and 
pulling and for that you do not need to know the address of the top of 
the stack. It is also possible to access any memory location in the stack 
using the stack pointer. However, it is dangerous to do so since the 
stack has the special job of keeping track of where the program is. If you 
make a mistake with your use of the stack pointer, you are likely to 
cause your program to crash. We therefore advise you to stick to using 
the stack commands PHA, PLA, PHP and PLP (which we will shortly 
introduce). 


Use of the stack during subroutines 
The stack has several uses. The first is the CPU’s automatic use of the 
stack when you call a subroutine. 


When a subroutine is called, the program counter contains (as usual) 
the address of the next instruction to be executed. But we want to divert 
the program to a subroutine and so prevent it from continuing straight 
on to the next instruction. In executing the JSR instruction, the 
microprocessor puts the contents of the program counter onto the top of 
the stack. This saves the address at which program execution will 
continue after the subroutine has been executed. It also, of course, frees 
the program counter for use by the subroutine. At the end of the 
subroutine, the statement RTS causes the microprocessor to fetch the 
original address from the top of the stack and put it back into the 
program counter. 


So, in Program 7.1, at the first call of ‘JSR oswrch’, the program counter 
contains &2005 which is the address of LDA #ASC"B" — the instruction 
that will follow the subroutine call. It is this address that is saved on 
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the stack for the program to return to after the subroutine. This process 
is illustrated in Figure 7.4. Notice that we do not know what is on the 
top of the stack at the start of the subroutine call, and nor do we need to 
know. 


Program statement 


LDA &70 
JSR & FFEE 
&oEgB & Address 
ame’ to return 
AN Sse 
———a 
haa wie + 
| Execute JIR! 
tLe. = 
Pull address 
back off stack \\ — 
Loa 471 — 


Figure 7.4 Use of the stack to store a return address 


We have made one simplification in the above illustration. Program 
counter addresses are 16-bit numbers but the stack is an 8-bit memory 
block. The return address must be held on the stack as two 8-bit 
numbers. The high-byte goes on first, followed by the low-byte. 


The stack pointer 

You’ may wonder how the microprocessor knows where the top of the 
stack is. It does this through the stack register (see Figure 2.1) which 
contains the address of the next free location in the stack (unless 
deliberately changed by the program). Since this is an automatic feature 
of the CPU, you will not need to learn to use the stack pointer although 
stack pointer control commands are available in the 6502 instruction 
set for use in advanced programming. 


SAQ 1 

Draw an illustration to show the state of the top of the stack during the 
second call of OSWRCH in Program 7.1. 

SAQ 2 

Do we know what numbers will be in the program counter during 
execution of &FFEE? 

Subroutines calling subroutines 


There is nothing to stop a subroutine calling a subroutine which calls a 
subroutine ... (until the stack is full!). The stack still looks after the 
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proper order of program execution. Consider the case illustrated in 
Figure 7.5 where hypothetical subroutines at hypothetical addresses 
are Called one after the other. 





Pc MAIN PROGRAM 
1000 
; SUBROUTINE 
(oqo | JSR First 2000 FIRST 
1093 
SUBROUTINE 
TSR Second | 3000 SECOND 
SUBROUTINE 
RTS TSR 4000 THIRD 
RTs 
RTS 


Figure 7.5 Subroutines calling subroutines 


The stack (simplified to show 16-bit numbers placed on without 
splitting into high- and low-bytes) will appear as in Figure 7.6. 


© Address to @ Addr t 
ess at top 
&1093 return to \ eas of stack after 
after JSR TSR third done 


@ \ 42183 4] Address to 
return to 
after Na 
Secon © Address at top 
of stack after 
TSR second 
\ done 
@ Address to 
return to 
after JSR 
third 
cok © Unknown contents 
after return from 
all subroutines 


Figure 7.6 The stack during repeated subroutine calls 
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SAQ 3 

The stack is in Page One which is &100 bytes long. What is the 
maximum number of nested subroutine calls that can be handled at any 
one time? 


From this discussion you can now see that RTS is capable of a more 
precise definition than we gave it in Unit 2. For, whilst ReTurn from 
Subroutine is a partial explanation of its action, RTS is an instruction 
to take the address off the top of the stack and to put it into the program 
counter. 


RTS Transfer address on top of stack to program counter 


The stack is upside down 

One other point about the 6502 stack is that it is ‘upside down’ i.e. 
when you switch on, the operating system arranges for the first free 
location to be &01FF and the stack is filled from this location 
downwards towards &0100. It rather spoils the analogy with the pile of 
plates, but apart from that it makes no difference to what we have said 
so far. 


&OIFF (Starting peserine 


On switch on 


Next free location 
top of stock 


Figure 7.7 The stack is really upside down 


Everything we have said so far concerns the CPU’s automatic use of the 
stack to control program flow during subroutines. We shall now look at 
programmer-controlled uses of the stack. 


7.3 Using the stack as memory 

The stack can be useful as a temporary storage location area i.e. a place 
to put a few items of data knowing that they will have to be pulled off 
before whatever else is on the stack is next needed. Data can be 


transferred to and from the stack only via the accumulator. ‘The two 
instructions for this are PHA and PLA. 


PHA PusH Accumulator onto stack 
PLA PuLI stack onto Accumulator 
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In Program 7.2, we use the stack as a temporary store whilst swapping 
the contents of &70 and &71. 


10 REM SWAP VIA STACK 

20 

30 DIM 2%50 

40 PX = 1% 

50 C 

60 OPT 1 

70 

80 .swap 

90 LDA &70 \Put first number in A 

100 PHA \Save it on stack 

110 LDA &71 \Put second number in A 

120 STA &70 \Store it in first location 

130 PLA \Get back first number from stack 
140 STA &71 \Store it in second location 

150 

160 RTS 

170 J 

180 

190 REM Test routine 

200 ?&70 = &2D 

210 2&71 &3E 

220 

230 PRINT "Numbers in &70 and &71 before are: " , 27&70, 2&71 
240 CALL swap 

250 

260 PRINT "Numbers in &70 and &71 after are: " , 2?&70, 28&71 


Program 7.2 


Test run 
>RUN 
Numbers in &70 and &71 before are: 45 62 
Numbers in &70 and &71 after are: 62 45 


The program has reversed the contents of the two locations using the 
stack as the temporary store that is needed in a swap operation. 


7.4 Saving the registers on the stack 


In general, when you call a subroutine, the registers will be in use and 
contain data which you will need again after the subroutine. But the 
subroutine itself needs to use the registers and so will destroy your 
data. When this is the case, you have to save the contents of the 
registers immediately before calling the subroutine. They can be saved 
on the stack. 
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The registers concerned are: 


The processor status register (flags) 

The accumulator ‘ 
The X register 

The Y register 


Fortunately these are all 8-bit registers so they can be placed on to the 
stack in turn. We have already met the instruction to place the 
accumulator onto the top of the stack (PHA) but what about the other 
registers? There are two additional instructions available: 





That still leaves the X and Y registers to transfer. These cannot be 
transferred directly. Instead, they have to be transferred one at a time 
into the accumulator and then pushed onto the stack with PHA i.e. 


TXA 
PHA 


will put the X register onto the stack and 


TYA 
PHA 


will put the Y register onto the stack. 


SAQ 4 
There are four registers to save. Does it matter in which order they are 
saved? 


You don’t always have to save all four registers since you may not have 
data in all of them. But unless you are sure that you don’t need the data 
in them, save them all as follows: 


PHP Puts processor status onto stack 
PHA Puts A onto stack 
TXA )Puts X onto stack 


PHA ) 
TYA )Puts Y onto stack 
PHA ) 


Then you can call a subroutine with JSR e.g. 
JSR dosomething. 


Once the subroutine has been executed, you must restore the saved 
registers to the state that they were in immediately before the 
subroutine call. This you do by reversing the above saving process. 
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SAQ 5 


Write down the list of instructions to restore the registers to their state 
prior to the sub-routine call. 


Program 7.3 shows the full saving and restoring process when all 
registers are in use. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


PHP 
PHA 
TXA 
PHA 
TYA 
PHA 
JSR 
PLA 
TAY 
PLA 
TAX 
PLA 
PLP 


Save 
registers 


Gosomething wusscecccccee Go off to subroutine 


Restore 
registers 


Program 7.3 


The state of the stack at line 160 (i.e. on calling the subroutine) will be 
as in Figure 7.8. 





Figure 7.8 Stack when registers are saved before a subroutine 
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We have not bothered to save the registers before using the BBC Micro’s 
built-in Operating System subroutines. This is because the built-in 
subroutines usually save and restore the relevant registers for you. 


Built-in subroutines and the registers: 


Key: 


still in the register after the call. 


‘Preserved’ means the contents of the register before the call are 


‘Not relevant’ means that you cannot use the state of such a flag to 
deduce anything about the result of the call. Nor can you assume 
that the flag has not been changed by the call. 


Call 


OSWRCH 
(&FFEE) 


OSRDCH 
(&FFEO) 


OSNEWL 
(&FFE7) 


OSASCI 
(&FFE3) 


Action 


Operating System Write Character 
Prints the character in A on screen 
(or printer) 


Operating System Read Character 
Takes a character from the 
keyboard and puts it into A. 


Operating System New Line 
Produces a line feed and carriage 
return. 


Operating System ASCII 

Prints the ASCII character of the 
character in A. If A= &0D then 
uses OSNEWL to produce a new 
line and carriage return. 


State of registers on 
exit 


A,X, Y preserved. 
C,N,V&Znot 
relevant. D = 0. 


A contains character. 
C = 0 means character 
was valid. 

C = 1 means invalid 
character. 

A, X, Y preserved. 

N, V, Z not relevant. D 
= 0. 


A, X, Y preserved. 
C,N, V, Z not 
relevant. D = 0. 


A, X, Y preserved. 
C,N, V, Z relevant. D 
= 0. 


(‘D’ is the decimal mode flag which we haven't used in this book.) 


SAQ 6 


Program 3.7 printed 5 stars on the screen. The subroutine in Program 
7.3 causes a delay of approximately 10 seconds. Incorporate it into 
Program 3.7 so that the stars are printed on the screen at 10 second 
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intervals. Make sure that you save the appropriate registers. 


-delay 
LDA #54 
-waita 
LDY #8&FF 
swaitb 
LDX #8&FF 
waite 
DEX 

BNE waitc 
DEY 

BNE waitb 
SEC 

SBC #1 
BNE waita 
RTS 


Program 7.4 


7.5 Passing parameters via the stack 


In many cases, a subroutine will perform some operation on data from 
an earlier part of the program. The subroutine must know where this 
data is to be found. One simple technique is to store the data in known 
memory locations. This is the method we have used so far in this 
course. Each time we wanted to pass parameters to a subroutine, we 
placed them in Zero Page. However, this method requires the 
subroutine to incorporate the addresses of those locations. Subroutines 
can be made more general by avoiding tying them too closely to the 
memory map of any particular computer. One method is to use the 
stack for data transfer. In this way the subroutine knows where to find 
the data without the programmer specifying particular memory 
locations. 


There is one snag with this approach (you never get something for 
nothing!). Suppose we wanted to write Program 5.2 (the 8-bit division 
program) as a subroutine which, when called, finds the two 1-byte 
numbers on top of the stack. We would proceed as follows: 


Put first number on stack 


Put second number on stack 
Call subroutine 
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But ‘Call subroutine’ will itself place the return address on the stack so 
that the top of the stack looks like Figure 7.9. 





Figure 7.9 Parameters passed to a subroutine trapped under the return address 


The parameters which we carefully placed on top of the stack ready for 
use by the subroutine are now buried by the return address from the 
program counter! One way out of this is to peel off the return address, 
rescue the parameters and then put back the return address. We do this 
as follows, using the X and Y registers as temporary stores for the 
peeled-off return address. 


Step1 
PLA 
TAY 
PLA 
TAX 

Step 2 


Step 3 
TXA 
PHA 
TYA 
PHA 


) Take return address (low) off stack 
) and save in Y 

) Take return address (high) off stack 
) and save in X 


) Take parameters off the stack 
) — however many there are — 
) and put into suitable stores 


) Put return address (high) into A 
) and push back onto stack 

) Put return address (low) into A 
) and push back onto stack 


This process is illustrated in Figure 7.10. 
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Neen == 


ee 


Y register 


Put 
parameters 
into 
appropriate 
stores 





Figure 7.10 Saving the return address whilst taking parameters from stack 


(Alternatively, the whole job can be done using the stack pointer but we 
have not covered that method in this book). 


SAQ 7 
Re-write Program 5.2 as a subroutine which expects to find the two 
1-byte numbers on the stack. 


Passing parameters via the stack is slow compared to other methods 
because, as you have seen, it involves a great many steps even to pass 
one parameter. It also carries the danger of an error in stack 
manipulation which will cause far more trouble than an error in 
addressing Zero Page. Consequently, this method is not recommended 
when other, quicker, machine-specific methods are available. Let's 
now look at some of the machine-specific methods in the BBC Micro. 


7.6 Passing parameters viaA%, X%, Y% andC% 


When the BBC Micro enters an assembly language routine, the A, X, Y 
registers are set to the least significant bytes of A%, X% and Y% 
respectively. The carry flag is set to the least significant bit of C%. So, if 
you want to use this fact to pass parameters to a machine code 
subroutine, you must assign appropriate values to these variables in the 
BASIC part of the program immediately before entering the subroutine. 
(The A%, X%, Y% and C% you use must be BASIC’s ‘system’ A%, X%, 
Y% and C% and not local variables created in a BASIC procedure or 
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defined function). Of course, if your program assigns its own values to 
the A, X, Y and C registers then you can ignore this feature (as we have 
done up to this point in this course). 


SAQ 8 ‘ 


A program contains the lines 


200 A% = &COES 
210 X% = &56 
220 Y% = 107 
230 CX = &1F52 
240 CALL prog 


On entry to the assembly language program prog, what values are in: 


(a) the accumulator? 
(b) the X register? 
(c) the Y register? 
(d) the carry bit? 


Program 7.5 demonstrates that the letters ‘A’, ‘B’ and ‘C’ have been 
transferred to the registers. 


10 REM PARAMETER PASSING VIA AX, X% AND Y% 
20 

30 oswrch = &FFEE 

40 DIM 2%50 

50 P% = 2% 

60 C 

70 JSR oswrch 

80 TXA 

90 JSR oswrch 

100 TYA 

110 JSR oswrch 

120 

130 RTS 

140 J 

150 

160 REM Test routine 

170 REM Parameters to be passed to assembly routine 
180 Ax ASC "A" 

190 X% = ASC "B" 
200 Y% ASC "Cc" 
210 
220 PRINT ' "Contents of A, X and Y registers: " ; 
230 CALL 2% 

240 PRINT 


Program 7.5 
Test run 


>RUN 


Contents of A, X and Y registers: ABC 
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This method of passing parameters can be used before CALL or USR i.e. 
it can be used before any entry to an assembly language routine. 


SAQ 9 
If passing parameters via A%, X%, Y% and C% is so straightforward, 
why is it not a complete answer to passing parameters? 


7.7 Passing parameters via CALL 


We used CALL to execute a machine code program but, in the BBC 
Micro, we can also use it to pass parameters to our program. This is a 
very powerful facility although quite complex to use. It is best 
explained by working step by step through an example. 


To pass parameters via CALL, you follow the CALL program instruction 
with a list of the parameters to be passed, separated by commas c.y. 


CALL program, S$, Ni, A, H$(3) 


Because the call is so complex, we are going to illustrate it by passing a 
single parameter. The program will take a BASIC string and print it out 
in reverse. Notice that we are not using a string at a fixed location (such 
as $B) but an ordinary BASIC string, S$, whose location in the memory 
is not fixed and not known to us. To pass this string to a machine code 
program, we proceed as follows: 


Step 1 
The string will have already been defined as a BASIC string, say $$ = 
"WILL THIS STRING PRINT OUT BACKWARDS?" 
Step 2 
Pass the parameter to the assembly language program with the 
statement 

CALL routine, S$ 


where ‘routine’ is the label for the assembly language program. 


Step 3 

The computer sets up a parameter block at location &600 upwards. In 
this block it places the information that you will need about the BASIC 
variables that you listed in your CALL statement. This information is as 
follows: 


&600 Number of parameters received 
&601 ) Address of first (low-byte) 

&602 ) parameter (high-byte) 

&603 Code for type of parameter received 
&604 ) Address of second (low-byte) 
&605 ) parameter (high-byte) 

&606 Code for type of parameter received 


etc. with 3 bytes of information for each parameter. 
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The codes are: 


0 A single byte (e.g. 2N) 

4 Four bytes (e.g. !N or N%) 

5 Floating point variable (e.g. .N) 
&80 String at fixed location (e.g. $$) 
&81 Ordinary string (e.g. $$) 


If the parameter is a string, then the address in the parameter block is 
nol the address of the string itself but of a ‘string information block’ 
which is yet another block of memory. A string information block is a 
4-byte area of memory which contains: 


oe (low-byte) 

of string (high-byte) 
Bytes allocated to string 
Length of string 


So that’s what CALL does when followed by parameters. Now let's see 
how it behaves when it executes CALL routine, $$ where S$ = 
“Hello”. 





Step 1 

S$ = “Hello” (the variable must be defined before CALL) 

Step 2 

The computer will fill &600 - &603 with: 
&600 1 (One parameter passed) 
&601 Address (low-byte) of S$ String Information Block 
&602 Address (high-byte) of S$ String Information Block 
&603 &81 (Code for ordinary string) 

Step 4 


If we now go to the address given in &601 and &602, we will find a 
4-byte block of information about S$: 


) Address of (low-byte) 
) S$ (high-byte) 

Number of bytes allocated* 
5 Length of “Hello” 


* When a string is first assigned to S$, space is set aside for a string 8 
bytes longer than the original string. Later in the program, a new string 
may be assigned to S$ which may be of a different length to the first 
string assigned to S$. The ‘number of bytes allocated’ will always be at 
least as great as the length of the current string allocated to S$. 


Program 7.6 shows this in action. The program prints out a string in 
reverse. By using CALL backwards, S$ at line 500, we ensure that the 
relevant details of S$ will appear in &600 to &603. (We labelled this 
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block par). We can then pick up the information that we need (lines 
160 and 180). From there we go to the string information block relating 
to S$ where we extract the second lot of information that we need 
including the true address of S$. By storing this address in Zero Page. 
we are able to use indirect indexed addressing to get at each individual 
letter of S$. 


10 REM REVERSE A STRING 

20 

30 oswrch = BFFEE 

40 osnewl = &FFE7 

50 block = &70 : REM plus &71 
60 string = &72 : REM plus &73 
70 par = 8600 

80 

90 DIM 2%50 

100 FOR pass = 0 TO 3 STEP 3 
110 PX = 2% 


120 C 

130 OPT pass 

140 

150 » backwards 

160 LDA parti Get w-bdyte T str ng nt rmat ff t k 
address 

170 STA block \Store 

180 LDA parte Get high-byte of string informatior 
addres: 

190 STA block+1 Store it 

200 LOY #0 

210 LOA (block),Y \Get low-byte of tring address from 

220 STA string \Store it 

230 INY 

240 LDA (block),Y \Get high-byte of string address from b 

250 STA string+1 Store t 

260 INY 

270 INY 

280 LDA (block),Y \Get ength of string 

290 TAY \Put | ae 

300 BEQ exit \lf string Length zero, exit 

310 

320 . loop 

330 DEY \Move pointer down string 

340 LDA (string),Y \Get letter of string 

350 JSR oswrch \Output letter 

360 cPy #0 \Finished? 

370 BNE Loop \If not, loop back for next letter 

380 

390 exit 

400 JSR osnewl 

410 

420 RTS 
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430 ] 

440 NEXT pass 

450 

460 REM Test routine 

470 S$ = "WILL THIS PRINT ALL RIGHT BACKWARDS?" 
480 PRINT "S$ is: " ' S$ 

490 PRINT ' "S$ backwards is: " 


500 CALL backwards, S$ Program 7.6 


Test run 
>RUN 
S$ is: 
WILL THIS PRINT ALL RIGHT BACKWARDS? 


S$ backwards is: 
2SDRAWKCAB THGIR LLA TNIRP SIHT LLIW 


SAQ 10 
Write an assembly language program to print N% stars where N% is a 
parameter passed to the program by CALL stars, N%. 


7.7 USR 


USR offers a simple way of calling any assembly language routine 
which is required to return one value. However, that one value can 
carry several items of information. 
USR is slightly different from CALL. The statement 

result = USR(prog) 


will execute the assembly routine ‘prog’ and, at the end of the routine, 
assign a value to ‘result’ made up from the four separate values: 


The value in the processor status register. 
The value in the Y register. 

The value in the X register. 

The value in the accumulator. 


If the values in the four registers at the end of ‘prog’ were: 


A &35 
X 0 
Y &F3 


a wh 


then the result would equal: &29F 30035. 
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This is demonstrated in Program 7.7 where the program puts 67, 12 and 


199 into A, X and Y respectively. 


10 REM USR DEMONSTRATION 

20 

30 DIM 2%50 

40 PX = 1% 

50 COPT 1 

60 

70 .prog 

80 LDA #67 \Put 67 into A 
90 LOX #12 \Put 12 into X 
100 LDY #199 \Put 199 into Y 
110 

120 RTS 

130 J 

140 

150 REM Test routine 

160 

170 PRINT "Output of use of "USR' call: " ; “USR(prog) 


Test run 


>RUN 
Output of use of 'USR' call: 81070043 


SAQ 11 


Program 7.7 


Verify that the output is correct for the A, X and Y registers. What does 


it tell us about the processor status register? 
Extracting information from USR 


In the run of Program 7.7 we had to extract the information from the 
output visually. Usually, we want this information to be available to 
the program immediately after the USR call. There are two techniques. 


One is to re-write Program 7.7 as in Program 7.7a. 


10 REM USR DEMONSTRATION 2 
20 

30 DIM 2450, result 3 

40 PX = 2% 

50 COPT 1 

60 

70 .prog 

80 LDA #67 

90 LOX #12 

100 LoY #199 

110 

120 RTS 

130 ] 

140 

150 REM Test routine 

160 

170 !result = USR(prog) 

180 REM Now extract each byte from the memory block ‘result' 


190 PRINT "A =" ; result?0 
200 PRINT "X =" | result?1 
210 PRINT "Y = " ; result?2 
220 PRINT "P = " ; result?3 


Program 7.7a 


The other technique for extracting information from the result of USR is 


to use masking. Let’s look at that next. 
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7.9 Masking 
AND 


AND is a logical operation between two binary numbers producing a 
result which contains 1’s where both the operands contain 1’s but 
leaving 0’s in all other positions. This is best understood by imagining 
the two operands superimposed one on top of the other. 

101 AND 110 
Superimpose 110 onto 101: 

101 

110 


Only position at which both numbers 
contain a 1. 


Since bit 2 is the only bit position at which both numbers contain a 1, 
we find that: 


101 AND 110 = 100 
SAQ 12 
What are: 


(a) 1010 AND 111 (b) 1010 AND 1111 (c) (any 8-bit number) AND &FF 
(d) (any 8-bit number) AND &0 


We can now use AND to extract information from the output of 
Program 7.7. We had 


result = &B1 C7 OC 43 
which represents c TF 
PY X A 


To find A, we form 
result AND &FF. 


Since ‘output’ is a 32-bit number whilst &FF is an 8-bit number, ‘AND 
&FF’ ‘masks off’ all but the 8 least significant bits of &B1C70C43: 


&FF = OOOOOOFF 
output B1C70C43 


: 1 1 ts 
Masked off by AND 
So 
A = output AND &FF i.e. &43. 


To find Y we must mask off as follows: 
B1C70C43 
ttttt tt 
This can be achieved by 
output AND &FFOO = &0c00 
and then dividing by &100. 
i.e. X = (output AND &FFOO) DIV &100 = g0C 


It is important to use AND first, then DIV i.e. 
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(output AND &FFOO) DIV &100 is correct 
since 
(output DIV &100) AND &FFOO is incorrect 


The latter method produces incorrect extractions when the top bit of 
the number being extracted is set since DIV then treats it as a negative 
number. 


To find Y we must mask off as follows: 
B1C70C43 
tt ttt 
which can be achieved with 
Y = (output AND &FFOO00) DIV &10000. 
ORA and EOR 
These are the remaining two logical operations. 


ORA 
ORA is the ‘inclusive OR’. It is used as an operand between two 
numbers. If either number contains a ‘1’ in a given bit position then that 
bit position will be 1 in the result. 
e.g. 10001 ORA 1011 = 11011 
Since bit 2 is the only bit position in which neither number has a 
de 


and 10101 ORA 1011 = 11111 since between the two numbers, there is 
a 1 at every possible bit position. 


In the 6502, of course, all numbers are 8-bit so the above results would 
be 8-bit in assembly language programs: 


00010001 ORA 000010111 = 00011011 
and 
00010101 ORA 00001011 = 00011111. 


ORA has one special use in assembly language programming and that is 
to ensure that one or more particular bits of an 8-bit number are set to 1. 
Suppose that we want bit 3 of ‘number’ to be a 1 and that the program 
does not require the specification of any of the other bit positions of 
number. We can achieve this by forming 


&08 ORA number 


since &08 = 00001000 and the result of any ORA operation with 
00001000 must contain a 1 at bit 3. 


SAQ 13 
Evaluate the following: 
(a) 101100 ORA 10000 (b) number ORA 11111111 (c) number ORA &0 
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EOR 

EOR is the exclusive OR and behaves like the BASIC ‘EOR’ when used 
for bit masking. It is a logical operation between two numbers and the 
result contains a 1 at those bit positions where one and only one of the 
operands contains a 1. At all other bit positions the result contains a 
zero. 

e.g. 

10001 EOR 1011 = 11010 since at bits 1 and 3, the second number has 1's 
whilst the first does not. At bit 4. the first number has a 1 whilst the 
second does not. Elsewhere either both numbers have 1's or both 
numbers have 0's. 

and 

10101 EOR 1011 = 11110 since only at bit 0 do both numbers contain a 1. 
At all other bit positions there is a 1 in one of numbers but not in both. 


As with ORA, the numbers will be 8-bit in the 6502 so the above results 
would be 


00010001 EOR 00001011 


00011010 


and 


00010101 EOR 00001011 


SAQ 14 
What is number EOR &FF? 


You can see from SAQ 14 that number EOR &FF will always form the 
complement of an 8-bit number. This is the main function of EOR in 
6502 work. 


00011110. 


AND, ORA and EOR in machine code 

AND, ORA and EOR are used in assembly language programming with 
one of the two operands in A. The result of the operation is left in A. To 
perform any of the three logical operations between the numbers first 
and second, you write 


LDA first 

AND second 
or 

LDA first 

ORA second 


or 
LDA first 
EOR second 


Hex/ASCII conversion 

Quite often we want to enter hex numbers from the keyboard into a 
machine-code program. So far we have used ?&... =&... but that is 
inconvenient, to say the least. We can’t enter the hex numbers at the 
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keyboard directly since neither OSRDCH nor OSWORD with A = 0 
(described in Unit 8) will accept hex numbers. If we enter ‘B3' then it is 
interpreted as the two characters ‘B’ and ‘3’ and each will go into a 
separate memory location. If we wish to use OSRDCH or OSWORD 
with A = 0 to input hex numbers, we must convert them as they are 
input. Let’s examine what's involved. 


Suppose you have typed in ‘B3’ using OSRDCH and that ‘3’ was stored 
in location ‘low’ and ‘B’ was stored in location ‘high’: 


low &33 
high &42 


We want to get the computer to interpret these two bytes as the one byte 
&B3. It has to convert &33 into the four-bit binary number 0011 and &42 
into the four-bit binary number 1011. Four bit-binary numbers are 
called ‘nibbles’. 


To convert ASCII codes for digits to binary, we need to convert as 
follows: 


ASCII code Hex number represented 


&30 

&31 

&32 

&33 

&34 

&35 

&36 

&37 

&38 

&39 Notice jump in 
&41 )sequence 
&42 

&43 

&44 

&45 

&46 


So to convert the Hex/ASCII numbers &42 and &33 to binary we 
subtract &30 from each number in turn and then an extra 7 from &42 
because of the jump in the sequence (the jump arises from ASCII &3A to 
&40 being set aside for punctuation marks). The result is &B 3 which in 
binary is 1011 0011. 


This conversion is summarised in Figure 7.11. 


mmomroioorwrwomonovfwnr—- oo 
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Take ASC I 
code 


Subtract &30 








Figure 7.11 Hex/ASCII conversion 


The program assumes that you have entered a hex number and that its 
low character is still in the accumulator. The high character is in the X 


register. 


10 REM HEX/ASCII CONVERSION 


20 


30 lownibble = &70 
40 DIM 2%50 
50 FOR pass = 0 TO 3 STEP 3 


60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


PX = 1% 
[ 
OPT pass 


»hexasciiconversion 


JSR convert 
STA lownibble 
TXA 

JSR convert 
ASL A 

ASL A 

ASL A 

ASL A 

ORA Lownibble 
RTS 


«convert 
SEC 

SBC #&30 
CMP #8A 

BCC exit 


\Convert low character 
\Save it 

\Get high character 
\Convert it 

\Shift it from 

\low nibble 

\position in A 

\to high nibble position 
\ORA lownibble into A 


\Set carry for low-byte subtraction 
\Take &30 off the character 

\Is result 10 or more? 

\If not, conversion is finished 
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270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


Test run 


>RUN 


SBC #7 \Else take a further 7 off nibble 
exit 


RTS 
J 
NEXT pass 


REM Test routine 

X% = &33 

PRINT "Character put into X register: " CHR$(&33) 

A% = &42 

PRINT "Character put into A register: " CHR$(&42) 

result = USR(hexasciiconversion) 

A% = result AND &FF 

PRINT ' "Contents of A register after conversion is " ; “A% 


Program 7.8 


Character put into X register: 3 
Character put into A register: B 


Contents of A register after conversion is 3B 


Assignment G 

1. Write an assembly language program that multiplies two 8-bit 
numbers, N% and M%, together where the numbers are passed to the 
program via CALL. Assume that the product will not exceed &FF. 


2. Write an assembly language program to print LEFT$(A$,N%) so that 
it can be called and executed by CALL left, AS, N%. 


Objectives of Unit 7 
After studying this Unit, you should be able to: 


OO Use PHA and PLA to transfer data to and from the stack. 


O Use PHP and PLP to save and restore the processor status register. 
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C] Save the contents of the registers before entry to a subroutine. 


Restore the contents of the registers after the execution of a 
subroutine. 


(J Pass parameters to a subroutine via the stack. 

() Pass parameters to a subroutine via A%, X%, Y% and C%. 
(] Pass parameters to a subroutine via CALL. 

O Execute a subroutine using USR. 

(J Extract information from the value returned by USR. 

O Apply AND, ORA and EOR to binary numbers. 

Answers to SAQs 

SAQ 1 


The address to be saved is &200A (the address of the final statement in 
the program). This is saved as &20 (high-byte) followed by &0A 
(low-byte). 


SAQ 2 

At the start of &FFEE, the location &FFEE will be in the program 
counter so as to make the program jump to that location. But we don’t 
know what numbers will be in the program counter during the 
execution of &FFEE. All we do know is that the program counter will be 
used by the subroutine at &FFEE as it will be by all subroutines. 


SAQ 3 

128. Remember that each call requires a value from the program 
counter to be placed onto the stack and that each program counter 
value is two bytes. If the stack was not in use at the start and not needed 
for any other purpose during the program, it could hold up to 128 
return addresses. 


SAQ 4 


The order does matter for two reasons. 


(i) Since we use the A register to transfer the X and Y registers to the 
stack, we must save the A register before the X and Y registers. 

(ii) The operations TXA, TYA and PLA all affect the processor status 
register (e.g. they could set or clear the Z flag). Therefore, the processor 


status register must be saved before the A, X and Y registers. So the 


order is: 


O) Save processor status register 
O Save accumulator 

O Save X register In either 
O Save Y register order 


SAQ 5 


PLA 
TAY 
PLA 
TAX 
PLA 
PLP 


SAQ 6 


10 REM LOOP 


20 


30 star = ASC "x" 

40 oswrch = &FFEE 

50 DIM 2%100 

60 FOR pass = 0 TO 3 STEP 3 


70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
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PX = 1% 
C 
OPT pass 


-Sstart 
LDA #star \Put '*' into accumulator 


LDX #5 \Put 5 as counter into X 


-print 
JSR oswrch \Print the '*' 


\SAVE REGISTERS BEFORE DELAY SUBROUTINE 


PHP \Save processor status onto stack 
PHA \Save accumulator onto stack 

TXA 

PHA \Save X onto stack 

JSR delay 


\RESTORE REGISTERS AFTER DELAY SUBROUTINEA 


PLA \Get X register content 

TAX \Replace it 

PLA \Get accumulator content 

PLP \Get processor status content 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


SAQ 7 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


DEX 
BNE print 


RTS 


-delay 
LDA #54 
ewaita 
LDY #8FF 
»waitb 
LDX #&FF 
ewaitc 
DEX 

BNE waitc 
DEY 

BNE waitb 
SEC 

SBC #1 
BNE waita 
RTS 

] 

NEXT pass 


REM Test run 


CALL start 


REM DIVISION 


DIM 2%100 
dividend = &71 
divisor = &70 


remainder = &73 


\Decrease the counter by 1 
\Loop back if more '*'s to print 


Program 7.9 


FOR pass = 0 TO 3 STEP 3 


PA = Th 

[ 

OPT pass 

LDA #5 

PHA 

LDA #190 

PHA 

JSR division 
RTS 


\Divisor to be passed to subroutine 
\Push divisor onto stack 
\Dividend to be passed to subroutine 
\Push dividend onto stack 
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190 
200 


210 
220 


230 
240 
250 
260 
270 
280 


290 
300 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


Test run 
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>RUN 


-division 
PLA 


TAY 
PLA 


TAX 
PLA 
STA 
PLA 
STA 
TXA 


dividend 


divisor 


PHA 
TYA 


PHA 
LDA #0 
LDX #8 
SEC 


«shift 

ASL dividend 
ROL A 

CMP divisor 

BCC next 

SBC divisor 

INC dividend 


-next 

DEX 

BNE shift 

STA remainder 


RTS 
] 
NEXT pass 


REM Test routine 
CALL 2% 

PRINT "Quotient 

PRINT "Remainder 


Quotient = 38 
Remainder = 0 


\Pull low-byte of return address off 
stack 

\Save in Y register 

\Pull high-byte of return address off 
stack 

\Save in X register 

\Pull dividend off stack 

\Store at dividend 

\Pull divisor off stack 

\Store at divisor 

\Transfer high-byte of return address 
to A 

\Replace onto stack 

\Transfer low-byte of return address 
to A 

\Replace onto stack 

\Clear A 

\Shift counter 


\Shift dividend left 
\Catch carry bit in A 
\Subtract divisor? 

\If no, then branch 
\Subtract divisor from A 
\Add one to quotient 


\Decrement shift counter 
\Loop back if more shifts 
\Store remainder 


"5 2871 


Uae Program 7.10 


SAQ 8 

(a) The accumulator will contain &E5 i.e. the Isb of &COE5. 

(b) The X register will contain &56. Since X% is a 1-byte number, the X 
register will contain X%. . 

(c) The Y register will contain &6B. Since Y% is a 1-byte number, the Y 
register will contain Y%. 

(d) The carry bit will be set to 0. (The Isb of &1F52 must be 0 since 
&1F52 is an even number). 


SAQ 9 
First, we can, at most, pass 3 one-byte numbers and 1 one-bit number 
which will not be sufficient for some programs. 


Second, the numbers have to be placed in A, X, Y and C and cannot be 
placed anywhere else by this method. In some programs, it might be 
necessary to re-locate some or all of the values as soon as they have 
been passed in order to put them where they are needed for a routine. 


SAQ 10 
10 REM CALL WITH PARAMETER PASSING 
20 
30 number = &70 : REM plus &71 
40 par = &600 


50 oswrch = &FFEE 
70 star = ASC "x" 


80 DIM 2%50 

90 

100 FOR pass = 0 TO 3 STEP 3 

110 PR = Lh 

120 «#26 

130 OPT pass 

140 

150 .stars 

160 LDA par+1 \Get low-byte of address of N% 
170 STA number \Store it in pointer (low-byte) 
180 LDA par+2 \Get high-byte of address of N% 
190 STA number+1 \Store it in pointer (high-byte) 
200 LbY #0 

210 LDA (number),Y \Load N% into A 

220 + BEQ exit \If N% = 0, skip star printing 
230 =TAY \Copy it to Y 

240 LDA #star \Put a star into A 

250 

260 -next 

270 = JSR oswrch \Output a star 

280 DEY \Decrement counter 

290 BNE next \Loop back if more stars to print 


201 


300 -exit 

310 

320 RTS 

330») 

340 NEXT pass 

350 

360 REM Test routine 

370 REPEAT 

380 

390 INPUT "Enter number of stars (0 - 255): " N% 

400 CALL stars, N% 

410 PRINT 

420 

430 UNTIL FALSE Program 711 
Test run 

>RUN 

Enter number of stars (0 - 255): 20 

KRKEKKEKKEKIEKEKKKEKKEKEK 

Enter number of stars (0 - 255): 5 

keke 
SAQ 11 


output = &B1 C7 OC 43 


teas = contents of A 
&0C = contents of X 


|______&C7 = contents of Y 
&B1 = 10110001, = flags as below 
Ttttt ttt 
NV-BDIZC 


In this case, not much of the processor status information is of use, but 
we can see that the carry flag happened to be set. (The program itself 
neither set nor cleared it.) The Z flag is 0 as we would expect since the 
the result of the last operation was not 0. 


SAQ 12 


(a) 1010 AND = 0010 = 10 


111 


Position at which both numbers have a 1. 
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(b) 1010 AND = 1010 
1111 


t f 


Positions at which both numbers have 1’s. 


(c) Any 8-bit number ANDed with &FF will be itself since &FF = 
11111111. 


(d) Any 8-bit number ANDed with 0 will be 0 since there are no 1’s in 0. 


SAQ 13 

(a) 101100 ORA 10000 = 111100 

(b) number ORA 11111111 = 11111111 = &FF 

(c) number ORA &0 = number (i.e. the operation has no effect) 


SAQ 14 

number EOR &FF = complement of number 

e.g.01101110 EOR 11111111 = 10010001 which is the complement of 
01101110 
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UNIT 8 
Operating System Calls 


8.1 
8.2 
8.3 
8.4 


VDU calls 
*FX calls 
OSBYTE calls 


Other operating system calls 


8.1 VDU calls 


Simple VDU calls 
Many of the BBC Micro’s VDU calls can be accessed via VDU in BASIC. 


The calls vary in complexity (whether in assembly language program- 
ming or BASIC). The simplest are those that only require VDU followed 
by a number. These are: 


VDU 2 Enable printer 

VDU 3 Disable printer 

VDU 4 Separate text/graphics cursors 
VDU 5 Join text/graphics cursors 

VDU 6 Enable VDU drivers 

VDU 7 Make a short beep 

VDU 8 Backspace cursor one character 
VDU 9 Forwardspace cursor one character 
VDU 10 Move cursor down one line 
VDU 11 Move cursor up one line 

VDU 12 Clear text area 

VDU 13 Move cursor to start of line 


VDU 14 Page mode on 

VDU 15 Page mode off 

VDU 16 Clear graphics area 

VDU 20 Restore default logical colours 
VDU 21 Disable VDU drivers 

VDU 26 Restore default windows 
VDU 30 Home text cursor to top left 
VDU 127 _—cDelete 


(VDU drivers are commands which control output to the screen). 


All of these can be implemented from an assembly language program 
by putting the VDU number into the accumulator and then calling JSR 
OSWRCH. Program 8.1 allows you to try these out one by one. Use only 
the numbers in the above VDU list. 


10 REM ONE BYTE VDU CALLS 


30 oswrch = &FFEE 

40 DIM 2%25 

50 PX = 2% 

60 CoPT 0 

70 LDA &70 \Put VDU number into A 
80 JSR oswrch \Execute VOU call 

90 RTS 

100 J 


120 REPEAT 

130 INPUT “Enter next VDU call number (99 to end). " N% 
140 2&70 = N% 

150 IF N% <> 99 THEN CALL 2% 


160 UNTIL N% = 99 
Program 8.1 
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Load Program 8.1. 


We can’t show the effects of this program on paper but you can try it for 
yourself. You will find that some calls produce no visible effect (i.e. 
VDUs 2, 3, 4, 5, 6, 16, 20 and 26). The effect of vbU 14 can only be seen 
when the cursor reaches the bottom of the screen, at which point the 
only way out is to press escape or shift. But if you have not reached the 
bottom of the screen then entering VDU 15 will cancel the effect of VDU 
14. VDUs 6 and 21 are a similar pair. Once you have entered vDU 21, all 
VDU numbers except VOU 6 are ineffective. 


More complex calls 
All the other calls consist of a VDU number followed by some other 
numbers which give additional information to complete the VDU call. 
These numbers are the same in assembly language as in BASIC. You 
have probably used 


MODE 5 
and 
COLOUR 2 


The words MODE and COLOUR correspond to VDU numbers (22 = select 
screen mode and 17 = define text colour). Each has to be followed by a 
number which gives the particular Mode or colour to be selected. To 
use these calls in assembly language programs, the extra numbers have 
to go into the accumulator and be followed by JSR &FFEE. Here then is 
the routine for changing to Mode 5: 


LDA #22 \VDU No for ‘select screen mode’ 
JSR OSWRCH \Execute VDU call 
LDA #5 \No of mode required 
JSR OSWRCH \Output mode No. 
and here is the routine for selecting colour 2: 
LDA #17 \VDU No for ‘define text colour’ 
JSR OSWRCH \Execute VDU call 
LDA #2 \No of colour required 
JSR OSWRCH \Output colour No. 


(Changing Mode with VDU 22 does not change HIMEM. So voU 22, 5 is 
not quite equivalent to BASIC’s ModE 5 command which does change 
HIMEM). 


Neither of those look too bad but suppose that you wanted to change to 
Mode 5 and follow it with the selection of text colour 2. To do that you 
would need both routines - eight lines of programming! And that is for 
only moderately complex VDU calls. The better way makes use of the 
lists that you met in Unit 7. 


Using lists 
If you look at the two routines above for ‘Mode 5, colour 2’, essentially 
they consist of putting the numbers 


22,5, 17 and 2 
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into A individually and then doing a JSR OSWRCH after each one. So 
the program will be a great deal simpler if we put all the numbers into a 
list and then work through the list with a pointer. It will simplify the 
programming if (a) the first item in the list is the number of VDU bytes 
in the list and (b) the list of VDU bytes is arranged for reading from the 
end backwards. So, the list 22, 5, 17, 2 becomes 4, 2, 17, 5, 22, or, in 
hex, 
&4, &2, &11, &5, &16 


This is ‘poked’ into memory with 
'$% = 805110204 and $%24 = &16. 


All we need now is a program that can work through this list and 
output each byte to JSR OSWRCH. This is shown in Program 8.2. 


10 REM MULTIBYTE VDU CALLS 


30 MODE7 
40 DIM 2%50, S%8 


60 oswrch = &FFEE 
70 !'s% = &05110204 
80 S%24 = &16 

90 PX = 2% 


110 C 

120 LDX #0 \Pointer to start of VDU list 
130 LDA S%,X \Get first byte of list 

140 TAX \Put byte count in X register 


160 .screen 

170 LDA S%,X \Get next VDU byte 

180 JSR oswrch \Output VOU byte 

190 DEX \Decrement byte counter 
200 BNE screen \Branch back if more bytes 


220 RTS 
230 J 


250 CALL screen 
Program 8.2 


(K] Load and run Program 8.2. 


Program 8.2 may look a little long for what it does but on closer 
inspection it is very economical. The VDU calls are specified by s% = 
.... They are executed by lines 60 to 200 i.e. 5 lines. These 5 lines are 
all we need, however complex the series of calls becomes (unless we 
want to use more than 256 bytes!). As the series of calls gets longer, all 
we have to do is to change S% to make sure the DIM statement reserves 
enough space for the list. Here is a complex example using this method. 
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Example 1 
Write a subroutine to select Mode 5 and to set up the screen to print 
green text on a red background. 


Solution 


We need a lot of bytes to do this, partly because green is not a default 
colour in Mode 5. We have to change one of the default colours to 
green. If we were solving this in BASIC we would write 


MODE 5 

VDU 19,2,2,0,0,0 Change colour 2 in mode 5 (yellow) to 
logical colour 2 (green) 

COLOUR 129 Background colour red 

CLS Cover screen in red 


COLOUR 2 Text colour 


The equivalent VDU numbers and bytes are 


BASIC VDU Number Bytes to send 
to send 
MODE 5 &16 &05 
VDU 19, 2,2,0,0,0 &13 &02, &02, &00, &00, &00 
COLOUR 129 &11 &81 
CLS &0C 
COLOUR 2 &11 &02 
Altogether that makes 13 bytes to be sent. so S% must allow for 13 


bytes. Since we wish to use ! we need to make S% 16‘ bytes long. 


S% 
Sh 
Sk 
Sk 


! 0 = &0C11020D 
! 4 = &00001181 
! 8 = &13020200 
! 12 = &00001605 


The program to execute this series of calls is essentially the same as 
Program 8.2 and is shown as Program 8.3. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
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REM Demonstration of selecting mode 5 


REM Putting yellow to green 
REM Putting a red background on screen and green text 
REM MULTIBYTE VDU CALLS 
MODE7 

DIM 2%50, S%16 

oswrch = &FFEE 

$%!0 = &0C11020D 

S%14 = &00001181 

$x%'8 = &13020200 

$4!12 = &00001605 

PX = 1% 

C 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


LDX #0 \Pointer to start of VDU List 
LDA S%,X \Get first byte of list 

TAX \Put byte count in X register 
«screen - 

LDA S%,X \Get next VDU byte 

JSR &FFEE \Output VDU byte 

DEX \Decrement byte counter 


BNE screen \Branch back if more bytes 


RTS 
J 


Program 8.3 


CALL screen 


As a final example, Program 8.4 shows tabbing using a VDU call and 
then prints a message at the tabbed position. 


10 REM VDU CALL PLUS MESSAGE 

20 

30 DIM 2%50, S%4, W%30 

40 oswrch = &FFEE 

50 osnewl = &FFE7 

60 $W% = "ALL DONE BY ASSEMBLER!" 

70 S%!0 = &1F090004 

80 S%?4 = &0C 

90 PX = 7% 

100 C 

110 LOX #0 \Pointer to start of VDU List 
120 LDA S%,X \Get number of bytes from list 
130 TAX \Transfer to X register 

140 

150 .tab 

160 LDA S%,X \Get next VOU byte 

170 JSR oswrch \Output VDU byte 

180 DEX \Decrement byte counter 

190 BNE tab \Branch back if more bytes 
200 
210 LDX #0 \Initialise letter counter 
220 

230 .word 
240 LDA W%,X \Get next letter 
250 JSR oswrch \Output to screen 

260 INX \Increment letter counter 
270 CPX #LEN(SW%) 

280 BNE word \Branch back if more letters 
290 JSR osnewl \New line & carriage return 
300 

310 RTS 

320 J 

330 

340 CALL 2% 


Program 8.4 


Load and run Program 8.4. 


209 


8.2 *FX calls 


The BBC Operating System 1.0 has 54 *FX calls which control special 
effects of the Micro. They are listed on pages 418 — 419 of the User 
Guide. Most are followed by numbers which give the details of the call 
required e.g. 


*FX 5 Select printer type 


*FX 5,1 Selects parallel printer output 
*FX 5,2 Selects serial printer output 


*FX 8 Selects transmission rate to printer 


*FX 8,1 75 baud 
*FX 8,2 150 baud 
etc. 


Let’s see how these work in BASIC and then in assembly language. 


Example 2 
Select the serial printer output with 1200 baud transmission rate and 
switch the printer on. Print Hello and goodbye! and then switch the 
printer off. 


Solution 
First, in BASIC: 


10 REM Select serial printer 

20 *FX 5,2 

30 REM Select 1200 baud transmission 

40 *FX 8,4 

50 REM Switch on printer 

60 VDU 2 

70 PRINT"Hello and goodbye!" 

80 REM Switch printer off 

90 voU 3 Program 8.5 


Now let's look at the assembly language solution. 


*FX calls in assembly language 

*FX calls in assembly language are done using OSBYTE called via 
&FFF4. OSBYTE does many different things, the exact call depending 
on the number in the accumulator. We shall be looking at its other uses 
in section 8.3 but first let’s use it for *FX calls. 


To execute *FXn1,n2,n3 you put n1 into the accumulator, n2 into the 
X register and n3 into the Y register. Then call OSBYTE. So *FX 5, 2 
requires 

LDA #5 

LOX #2 

JSR OSBYTE 


(We don’t have to bother about Y in this case since there are only two 
parameters to this call.) 


210 


That's all the new information that we need to use to write the printer 


program. 
10 REM *FX CALLS 
20 
30 DIM S 20 
40 DIM 2%50 
50 $$ = "Hello and 
60 oswrch = &FFEE 
70 osbyte = &FFF4 
80 
90 FOR pass = 0 TO 
100 PX = 2% 
110 COPT pass 
120 LDA #5 
130  LDX #2 
140 JSR osbyte 
150 LDA #8 
160 LOX #4 
170 JSR osbyte 
180 LDA #2 
190 JSR oswrch 
200 LOX #0 
210 
220 «sentence 
230 LDA S,X 
240 INX 
250 JSR oswrch 
260 CMP #&D 
270 BNE sentence 
280 
290 LDA #3 
300 JSR oswrch 
310 
320 =RTS 
330 Jj 
340 NEXT pass 
350 
360 REM Test run 
370 
380 CALL 2% 

Test run 
>RUN 


Hello and goodbye! 


goodbye!" 


3 STEP 3 


\Put 5 into A for 5 of *FX 5, 2 
\Put 2 into X for 2 of *FX 5, 2 
\Execute *FX 5, 2 (RS432 printer) 
\Put 8 into A for 8 of *FX 8, 4 
\Put 4 into X for 4 of *FX 8, 4 
\Execute *FX 8, 4 (1200 baud) 

\Put 2 into A for VDU 2 

\Execute VDU 2 (switch printer on) 
\Initialise character counter 


\Get a character of string $$ 
\Increment character counter 

\Output character 

\Was it 'return'? 

\If not, loop back for next character 


\Put 3 into A for VDU 3 
\Execute VDU 3 (switch printer off) 


Program 8.6 
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Flushing the keyboard buffer 

If the computer is not ready to accept keyboard input (e.g. it is busy 
doing some calculations), you can still type in at the keyboard. ‘The 
characters that you type are stored in an area of memory called the 
keyboard buffer. At the next INPUT statement in the program, whatever 
is in the input buffer is accepted as input. If you want to prevent this, 
you precede the INPUT statement with *FX 21, 0 which flushes 
(empties) the input buffer. In BASIC you would write, say: 


100 *FX 21, 0 
110 INPUT "Enter next data " data$ 


(If your micro does not have operating system 1 — type *FX 0 to find out 
— then you will not be able to use *FxX 21. As an alternative you can use 
*FX15 which flushes the currently selected input buffer.) 


SAQ 1 

Write an assembly language routine to flush the input buffer. 

Other *FX calls 

The following calls can be executed by the method given above. For full 


details of the parameters needed with each call, refer to the User Guide, 
pages 421 — 429. 


*FX 0 Prints the number of the operating system in your micro. 
*FX 1 - 

*FX 2 Selects the input device (keyboard or RS432 port). 

*FX 3 Selects the output stream. 

*FX 4 Sets/re-sets the cursor editing keys. 

*FX 5 Selects printer type. 

*FX 6 Selects one ASCII code not to be sent to the printer. 
*FX7 Selects RS432 port receive baud rate. 

*FX 8 Select transmission rate out of RS432 port. 

FXO Select flashing rate of flashing colours (first colour). 


*FX 10 Select flashing rate of flashing colours (second colour). 

*FX 11 Sets delay before keyboard auto-repeat starts. 

*FX 12 Sets auto-repeat period. 

*FX 13 Enable/disable various events. 

*FX 14 Enable/disable various events. 

*FX 15 Part of buffer flushing (see also *FX 21). 

*FX 16 Select ADC channel(s). 

*FX 17 Start ADC conversion. 

*FX 18 Re-set user defined keys. 

*FX 19 Wait until start of next TV frame. 

*FX 20 Used in connection with re-definition of ASCII codes &20 
to &FF. 

*FX 21 Select buffer to flush. 

*FX 124  Re-set escape flag. 

*FX 125 Set escape key. 

*FX 126 Acknowledge escape condition. 
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8.3 OSBYTE calls 


The rest of the *FX calls are too complex to be executed in BASIC by 
the simple command *FX .... If they are used from BASIC, this has to 
be done with USR (see Unit 7). However, we are only going to deal with 
their use from assembly language programs. All OSBYTE calls (see the 
list in the User Guide, pages 429 — 441) are executed in exactly the same 
way as that described in section 8.2: 


C) Put the number of the call into the accumulator. 

C) Put any other parameters into the X and Y registers. 

O JSR OSBYTE. 

Many OSBYTE calls return information which is usually in the X and Y 
registers after the call has been executed. The general principles of 
OSBYTE calls can be explained by looking at a typical call: OSBYTE 
with A = &81 (Read a key with a time limit). 

OSBYTE with A = &81 

This is like BASIC’s INKEY. It accepts a key-stroke provided that the 
key is pressed within a specified time limit. The period is set in 
centi-seconds by placing the Isb of the period in X and the msb of the 
period in Y e.g. 


X register Y register Time period 


(max &7F) 
0 0 0 
&FF 0 2.55 secs 
0 &10 40.96 secs 
&FF &7F 5 min 27.67 secs 


The maximum value that may be placed in the Y register for this call is 
&7F. 


After the call, the X and Y registers tell you what happened: 


Y Result 

0 Key was pressed: character is in X. 

&1B Escape was pressed: must now ‘acknowledge it’ 
i.e. follow it by executing *FX 126 

&FF No key pressed. 


Here is a program which waits 5 seconds for a key to be pressed. If a key 
is pressed, its character is displayed on the screen. 
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10 
20 
30 
40 
50 


REM OSBYTE WITH A = &81 


DIM 2%50 
osasci = &FFE3 
osbyte = &FFF4 


60 FOR pass = 0 TO 3 STEP 3 

70 PX = 2% 

80 C 

90 OPT pass 

100 LDA #21 \Put 21 into A for *FX 21 

110 LDX #0 \Put 0 into X for *FX 21,0 

120 JSR osbyte \Execute *FX 21,0 (flush input buffer) 

13.0 LDA #881 \Put 881 into A for OSBYTE with A = &81 

140 LDX #244 \Set delay to 244 centiseconds 

150 LDY #1 \plus 256 centiseconds (total 5 seconds) 

160 JSR osbyte \Execute OSBYTE with A = &81 (wait for 
key press) 

170 TYA \If Y = 0 then a key was pressed 

180 BNE nocharacter \If no key press, check for escape 

190 TXA \Transfer character from X to A 

200 JSR osasci \Output character 

210 RTS 

220 

230 -nocharacter 

240 CPY #&1B \Was escape pressed? 

250 BNE exit \Ilf not, exit 

260 LDA #126 \Otherwise acknowledge escape with *FX126 

270 JSR osbyte \Execute *FX 126 

280 

290 exit 

300 RTS 

310 ] 

320 NEXT pass 

330 

340 REM Test call 

350 

360 CALL 2% 


Program 8.7 


SAQ 2: OSBYTE with A = &87 

This OSBYTE call reads the character at the current cursor position. On 
exit, X contains the character and Y the number of the current screen 
mode. Write a program to move the cursor to (x, y), read the character at 
that position and then to display it on the screen somewhere else. 
(Given the need to put values in X and Y at the start, it is best to call 
your routine with USR. Make the value that is returned by USR the 
ASCII code of the character which has been read). 


OSBYTE with A = &8A (Put character into keyboard buffer) 
This is a very useful routine since it provides a link between BASIC and 
assembly language. Let's first look at the call in BASIC. 


214 


*FX 138, 0,65 places an ‘A’ (ASCII code 65) into the keyboard. We can 
use the call to place a series of characters into the keyboard buffer. 
Program 8.8 does this and then uses INPUT to see what is in the buffer. 
Not a useful thing to do but it’s a way of seeing *FX 138 at work. 


10 REM Demonstration of *FX 138 
20 REM Flush buffer at start 


40 *FX 21,0 

50 REM Put characters of ‘Hello’ into keyboard 
60 *FX 138, 0, 72 

70 *FX 138, 0, 69 

80 *FX 138, 0, 76 

90 *FX 138, 0, 76 

100 *FX 138, 0, 79 

110 REM End with return 

120 *FX 138, 0, 13 


140 REM Now see what is in the keyboard buffer 
150 INPUT keyboard$ 
160 PRINT keyboard$ 


Program 8.8 


*FX 138 offers a way of transferring data from BASIC to machine code 
and vice versa. You put the data from BASIC (say) into the keyboard 
buffer (remembering to flush the buffer first) and then take it out of the 
buffer with OSRDCH. 


8.4 Other operating system calls 

We have met some of these already (e.g. OSWRCH). A number of these 
calls are concerned with file handling (OSFIND, OSGBPB, OSBPUT, 
OSBGET, OSARGS and OSFILE) with which we are not dealing in this 
book. Let’s look at the other calls. 


OSRDCH (called via &FFEO) 

This reads a character from the input stream. We have already used this 
to put characters from the keyboard into the accumulator. You can use 
OSRDCH to take characters from the RS432 stream by selecting that 
stream with *FX 2, 1. 


OSASCI (called via &FFE3) 

This routine writes the character in the accumulator to the current 
output stream (i.e. screen or printer). If the code in the accumulator is 
&D then the routine executes a ‘new line and carriage return’. 


OSNEWL (called via &FFE7) 
Executes a ‘new line and carriage return’. 


OSWRCH (called via &FFEE) 
Writes the character in the accumulator to the current output stream. 
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OSWORD (called via &FFF1) 
OSWORD is actually twelve separate routines all called through &FFF1 
with the routine selected depending on the value in the accumulator: 


Value in A OSWORD routine 


Read a line of input from input stream. 

Read the clock. 

Set the clock. 

Read the timer. 

Set the timer. 

Read byte of input/output processor memory. 
Write a byte of input/output processor memory. 
Sound. 

Define envelope for sound. 

Read pixel colour at a point. 

Read dot pattern of a displayable character. 
Read the palette value for a logical colour. 


DWPOMRNOuUhWNHO 


We shall look at OSWORD with A = 0, A = 1 and with A = 7. 


OSWORD with A = 0 

This does the same job as INPUT LINE in BASIC. It accepts all the 
characters typed in from the keyboard until ‘return’ is pressed and then 
stores them in a block of memory specified by you in the call. During 
this routine, you can use ‘delete’ and ‘escape’. 

The routine has to be given five parameters which is more than you can 
pass with the X and Y registers. Instead, the parameters are placed in a 
‘parameter block’ designated by you. A parameter block is an area of 
memory set aside for passing information from one routine to another. 
For this routine, the block must contain the following details: 


Parameter block (5 bytes of memory) 


[TTT 1 tJ 


Isb msb A_Maximum ASCII code to 
be accepted. 
Minimum ASCII code to be 


accepted. 
Maximum line length. 
Address for storing input. 


And, on top of all that information, we have to tell the routine where 
our parameter block is. We do this by putting the Isb of the address of 
the block into the X register and the msb into the Y register before 
calling the routine. 


Example 3 
Write a program to accept a line of input from the keyboard. The line 
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must be able to contain all printable ASCII characters, to be of 
maximum length 30 characters and to be stored in memory starting at 
&2200. 

Solution . 
We shall use &70 to &74 as our parameter block. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


REM OSWORD with A = 0 


pari = &70 

par2 &71 

par3 &72 

par4 &73 

pars &74 

inputblk = &2200 

parblock = &70 

osword = &FFF1 

DIM 2%50 

FOR pass = 0 TO 3 STEP 3 
PX = 2% 
E 
OPT pass 
line 


RTS 
J 
NEXT pass 


REM Test routine 
REM Empty input buffer 
FOR I = &2200 to &221E 
21 = 0 
NEXT 
REM Input 
CALL Line 


REM Inspect contents of buffer 
FOR I = &2200 TO &221E 

PRINT CHRS(71); 

NEXT 
PRINT 


Program 8.9 
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Test run 
>RUN 
This was typed in with OSWORD 
This was typed in with OSWORD 


In a full working program you need to check the exit conditions of 
OSWORD with A = 0. They are: 


Carry clear means ‘return’ ended the input line 

Carry set means ‘escape’ ended the input line 

Y holds the length of the input line including any 
return 


OSWORD with A = 1 (read clock) 

This provides the same facility as TIME in BASIC. Since TIME soon 
becomes a large number, you need a 5-byte location to store its value. 
So, as with OSWORD with A = 0, you have to set aside a block of 
memory as a parameter block for the routine. You put the address of the 
block into the X register (Isb) and Y register (msb) and then execute the 
call with A = 1. Program 8.10 demonstrates its working with &70 to 
&74 as the parameter block into which TIME is deposited by the 
routine. 


10 REM TIME 

20 

30 osword = &FFF1 

40 DIM 2%50 

50 FOR pass = 0 TO 3 STEP 3 

60 PR = 1% 

70 C 

80 OPT pass 

90 

100 time 

110 LDX #8&70 \Put lsb of parameter block address into X 
120 LDY #0 \Put msb of parameter block address into Y 
130 LDA #1 \Put 1 into A for OSWORD with A = 1 

140 JSR osword \Execute OSWORD with A = 1 to read time 
150 

160 RTS 

170 ] 

180 NEXT pass 

190 


200 REM Test routine 

210 CALL time 

220 PRINT ' "Time as read by routine: " ; 
230 time = !&870 + 256 * 4 ® 2874 


240 PRINT time Program 8.10 
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Test run 
>RUN 


Time as read by routine: 274156 


OSWORD with A = 2 (set the clock) 

In BASIC, you can set the clock with a statement such as TIME = 0 or 
TIME = 835138. To do this in assembly language, you use OSWORD with 
A = 2. In this example, the 5-byte parameter block contains the value 
you wish to set TIME to. You put this value in the block, then put the 
address of the block into the X register (low byte) and Y register (high 
byte) and execute the call with A = 2. 


SAQ 3 
Write a program to set the clock to 0. 


OSWORD with A = 7 (Sound) 
This call produces the same effect as SOUND in BASIC. It needs 8 bytes 
of information so, again, you have to set up a parameter block but this 
time of 8 bytes 

Information Bytes 


Channel Number Isb 


Channel Number msb 
Amplitude Isb 
Amplitude msb 
Pitch Isb 
Pitch msb 
Duration Isb 
Duration msb 
Example 4 


Write an assembly language program to play the note produced by the 
BASIC command SOUND 1, -10, 53, 20. 


Solution 

Using &80 to &87 as the parameter block, the block will need to contain: 
Location Value 
&80 1 
&81 0 
&82 &F6 
&83 &FF 
&84 &35 
&85 0 
&86 &14 
&87 0 


Because the amplitude in the SOUND statement is negative (unless 0), 
we have to work out its two’s complement (see Unit 1) in order to place 
it in the parameter block. 
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The program to play this note is Program 8.11. We have filled the 
parameter block using the indirection operator !. For more complex 
tunes, you would have to use a list-reading routine (see Unit 6) to fill 
the parameter block with the details for the successive notes. 


10 REM SOUND 


20 
30 base = &80 
40 REM Fill parameter block 


50 base!0 = &FFF60001 

60 base!4 = 800140035 

70 osword = &FFF1 

80 DIM 2%50 

90 FOR pass = O TO 3 STEP 3 
100 PX = 1% 


110 C 

120 OPT pass 

130 LOX #880 \lsb of parameter block address into X 

140 LDY #40 \msb of parameter block address into Y 

150 LDA #7 \7 into A for OSWORD with A = 7 

160 JSR osword \Execute OSWORD with A = 7 (sound) 

170 RTS 

180 J 

190 NEXT 

200 

210 CALL 2% 

Program 8.11 

Tunes 


If we have to re-set all 8 parameters every time we change a note then 
the task is daunting. Usually, however, only one or two parameters 
change from one note to the next so we need only change those 
parameters. For example, if you look at the tune given on page 348 of 
the User Guide: 


SOUND 1, -15, 97, 10 
SOUND 1, -15, 105, 10 
SOUND 1, -15, 89, 10 
SOUND 1, -15, 41, 10 
SOUND 1, -15, 69, 20 


only the pitch of the notes changes, except for the last note, where pitch 
and duration change. 


SAQ 4 


Write a program to play the above tune. 


Assignment H 


1. Write an assembly language program to play a simple melodic phrase 
of your choice. 
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2. Write an assembly language program to clear the screen and display 
two messages at different points on the screen and in different colours. 
Make sure that the assembly language program sets the appropriate 
screen mode. 


Objectives of Unit 8 


After studying this unit, you should be able to write assembly language 
programs which: 


O Execute VDU calls not requiring following bytes of information. 
O Execute VDU calls with following bytes of information. 
O Execute *FX calls with JSR OSBYTE. 


O Execute more complex *FX calls which return information in the X 
and Y registers and in other parameter blocks. 


Answers to SAQs 


SAQ 1 
10 REM Flushing the input buffer 
20 
30 osbyte = &FFF4 
40 DIM 2%25 
50 FOR pass = 0 TO 3 STEP 3 
60 P% = 1% 
70 ~«(OUC 
80 OPT pass 
90 «flush 
100 LDA #21 \Put 21 into A for *FX 21 
110 LDX #0 \Put 0 into X for *FX 21,0 
120 JSR osbyte \Execute *FX 21,0 
130 RTS 
140 ] 
150 NEXT pass 
160 


170 REM Test run 

180 REM Pause to give you time to press a few keys 

190 FOR I = 1 TO 5000 : NEXT 

200 CALL flush 

210 PRINT "Press return to see contents of input buffer after routine:” 
220 INPUT T$ 

230 PRINT TS 


Program 8.12 
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SAQ 2 


222 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


REM CHARACTER READ 
oswrch = &FFEE 
osbyte = &FFF4 
DIM 2%25 
PA = 1% 
C 
.-characterread 
LDA #31 \Put 31 into A for VDU 31 
JSR oswrch 
TXA \X coordinate for VDU 31 
JSR oswrch 
TYA \Y coordinate for VDU 31 
JSR oswrch \That completes TAB(X, Y) 
LDA #887 \&87 into A for OSBYTE with A = &87 
JSR osbyte \Execute OSBYTE with A = &87 
(read character on screen at X, Y) 
RTS 
i] 
REM Test routine 


REM Write a line of characters at line 2 
CLS 
FOR I = 0 TO 39 
PRINT TABC(I, 2) CHRS(64 + RND(26)) ; 
NEXT I 


REM Read back the line using 'characterread' 
FOR I = 0 TO 39 
X% = 1: YR = 2 
result = (USR(characterread) AND &FFFF) DIV &100 
PRINT TAB(I, 22) CHR$(result) ; 
NEXT 


Program 8.13 


SAQ 3 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


220 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


Test run 


>RUN 


REM TIME SET 


part = &70 
par2 = &71 
par3 = &72 
par4 = &73 
par5 = &74 
osword = &FFF1 
DIM z%50 
FOR pass = 0 TO 3 STEP 3 
PR = zh 
C 
OPT pass 
-time 
LDA #0 \Set parameter 
STA pari \block 
STA par2 \to time 
STA par3 \that you 
STA par4 \wish to set clock to 
STA pars \(zero in this case) 
LDX #870 \Put lsb of parameter block address 
into X (will be destroyed by OSWORD call) 
LDY #0 \Put msb of parameter block address 
into Y (will be destroyed by OSWORD call) 
LDA #2 \Put 1 into A for OSWORD with A=2 
JSR osword \Execute OSWORD with A = 2 to set time 
RTS 
] 
NEXT pass 


REM Test routine 

PRINT "TIME before using routine " ; TIME 
CALL time 

time = !&70 + 256 f 4 * 2874 

REM Check that the clock has been re-set 
PRINT "Current value of TIME is now " ; TIME 


TIME before using routine 4033 
Current value of TIME is now 2 


Program 8.14 


(The ‘current value’ is not zero because of the time taken to exit from the 


routine). 
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SAQ 4 


10 REM TUNE 
20 
30 base = &80 


40 duration = &86 
50 base!0 = &FFF10001 
60 base!4 = &000A0061 
70 osword = &FFF1 


80 DIM 2%50 

90 FOR pass = 0 TO 3 STEP 3 

100 PR = 1% 

110 ~#OC 

120 OPT pass 

130 LDA #861 \Get next note change 

140 JSR play \Play note 

150 LDA #105 \Get next note change 

160 JSR play \Play note 

170 LDA #89 \Get next note change 

180 JSR play \Play note 

190 LDA #41 \Get next note change 

200 JSR play \Play it 

210 LDA #20 \Get next duration 

220 STA duration \Store it 

230 LDA #69 \Get next note change 

240 JSR play \Play it 

250 ~=RTS 

260 

270 «play 

280 STA &84 \Put new note in &84 

290 LDX #8&80 \Store lsb of parameter block address 
300 LDbDY #0 \Store msb of parameter block address 
310 LDA #7 \Put 7 into A for OSWORD with A = 7 
320 JSR osword \Execute OSWORD with A = 7 (sound) 
330 

340 RTS 

350 J 

360 NEXT pass 

370 

380 REM Test routine 

390 CALL 2% 


Program 8.15 
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UNIT 9 
Tough stuff 
9.1 16-bit multiplication 


9.2 16-bit division 
9.3 Sorting a BASIC array 
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9.1 16-bit multiplication 


Whilst 16-bit multiplication is more complicated than 8-bit, the 
principles are the same. What causes the trouble is the fact that the 
multiplicand will be 16 bits long and the product could be 32 bits long. 
This means that we need more memory locations and more movements 
of the numbers in memory. 


Before looking at the algorithm in detail, we shall compare the two 
methods schematically. Remember that 8-bit multiplication involved 


three registers: 
Multiplicand 


Add 
[ Accumulator |_| Product (low-byte) | 


We worked through each bit of the multiplier, starting with the Isb. If 
the bit was 1, we added the multiplicand to the accumulator and then 
rotated the Isb of the accumulator into the product’s low-byte location. 
If the multiplier bit was a 0, only the shift took place. After 8 shifts the 
result was: 





Accumulator 


Product (high-byte) Product (low-byte) 


16-bit multiplication follows the same procedure but each 8-bit 
register/memory location is replaced by a 16-bit location: 


<—— Mut iplicand > 


Add with Add 


carry 


ce ce 


Produc t ———_—_—_—_—_— 
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The product consists of four bytes: prod1, prod2, prod3, prod4. To 
multiply, we work through the 16 bits of the multiplier. If a bit is a 1, 
we: 


(1 Add mprlow to prod3 
(1) Add mprhigh to prod4 with the carry of mprlow + prod3 
(1) Shift prod4, prod3, prod2 and prod! each one bit right. 


If the multiplier bit is 0, we only perform the shifts. After 16 shifts, the 
32-bit product is in prod4, prod3, prod2 and prod1 (highest byte to 
lowest byte). 


The program 
The memory allocation we shall use is as follows: 


High-byte Low-byte 


Multiplicand (mpd) &71 &70 
Multiplier (mpr) &73 &72 
Product (prod) &77 &76, &75, &74 


The program is given in Program 9.1. Compare this carefully with the 
8-bit version in Program 5.1. 


10 REM 16 BIT MULTIPLICATION 


20 

30 mpdlow = &70 
40 mpdhigh = &71 
50 mprlow = &72 
60 mprhigh = &73 
70 prod1 = &74 
80 prod2 = &75 
90 prod3 = &76 
100 prod4 = &77 
110 


120 DIM 2%50 
130 FOR pass = 0 TO 3 STEP 3 


140 PX = 2% 

150 «€6E 

160 OPT pass 

170 

180 .mult16 

190 LDA #0 

200 STA prod3 \Initialise high-byte of product to 0 
210 STA prod4 \Initialise high-byte of product to 0 
220 =LDX #16 \Set bit counter 

230 

240 -next 

250  LSR mprhigh \Shift high-byte of multiplier 

260 ROR mprlow \Catch carry/ Next multiplier bit into 


carry 
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270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


600 


BCC rotate \Branch if multiplier bit was zero 
LDA prod3 \Fetch 3rd byte of product 

CLC \Prepare to add 

ADC mpdlow \Add to low-byte of multiplicand 
STA prod3 \Store new 3rd byte of product 

LDA prod4 \Fetch 4th byte of product 


ADC mpdhigh \Add to high-byte of multiplicand 


-rotate 

ROR A \Rotate 4th byte of product 
STA prod4 \Store new 4th byte of product 
ROR prod3 \Rotate 3rd byte of product 
ROR prod2 \Rotate 2nd byte of product 
ROR prod! \Rotate 1st byte of product 
DEX \Decrement counter 

BNE next \Loop back if more bits to deal with 
RTS 

] 

NEXT pass 


REM Test run 

INPUT “Enter first number " first 
2&70 = first MOD 256 

2&71 = first DIV 256 


INPUT “Enter second number " second 
2&72 second MOD 256 
27&73 = second DIV 256 


CALL mult16 


PRINT "Result bytes (high to low) = " 27874, 2875, 2&76, 
2&77° 
PRINT "Result (decimal) = " 2?&74 + 2?&75 * 256 + 2&76 * 256 


t 2 + 2&77 * 256 ft 3 Program 9.1 


First test run with a multiplication which should give an 8-bit result: 12 


* 13. 


>RUN 


Enter first number 12 

Enter second number 13 

Result bytes (high to low) = 156 0 0 
Result (decimal) = 156 


The result of 12 * 13 = 156 is correct. 
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Second test run which should yield a 32-bit product: 2038 * 8765. 


>RUN 

Enter first number 2038 

Enter second number 8765 

Result bytes (high to low) = 158 145 16 
Result (decimal) = 17863070 


Multiplying even more bits 

Going from 8 bits to 16 bits required two changes of method: first the 
need to keep all the bytes in memory; second, we had to watch the carry 
in the addition. But if we now want to move to 32-bit multiplication, no 
new principles are involved. We shall not deal with this in this book 
but you should find that what we have done will enable you to follow 
the listings of multi-bit multiplication programs in other sources. 


9.2 16-bit division 


The method we used for 8-bit division works with little modification 
for 16-bit division. The first modification concerns storage. Consider 
the arrangement we used for 8-bit division: 


<_- [Dividend/quotient | 


We can’t directly use this for 16-bit division since the accumulator is 
only 8 bits long. We therefore have to use memory locations: 


7 07 07 07 0 
&75 &74 &73 &72 
Partial dividend Dividend/quotient 


The second modification concerns the step of deciding whether or not 
we can subtract the divisor from the part of the dividend pushed into 
the partial dividend. With 8-bit division we used CMP but we can't use 
this on a 16-bit number. So we shall have to perform the subtraction 
and see whether the result is negative or not. If it is negative, then the 
partial dividend is smaller than the divisor and we forget it, proceeding 
to the next rotate. If the result of the subtraction is positive or 0 then the 
partial dividend is greater or equal to the divisor. So we accept the 
subtraction and increase the quotient by 1. The flowchart for this is 
shown in Figure 9.1. 
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divlow } ic 
divhigh divisor 
divglow | aiden 
divghi gh quotient 


pdivlow=0 
pdivhigh = 0 


Shift left divqlow 
Rotate left divqhigh 
Rotate left pdiviow 
Rotate left pdivhigh 


Subtract pdivlow from pdiviow 
Subtract divhigh from pdivhigh 
















divl tial 
Pdivhigh } Biden " 


* contains remainder 
at end 









divqlow = divqlow +1 
Save new pdivhigh 
Save new pdivlow 


COUNTER =COUNTER —! 


Figure 9.1 16-bit division 
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SAQ 1 

‘Try writing the program for 16-bit division. Assume the divisor is in 
&70 (low-byte) and &71 (high-byte). Note: You need a place to store the 
‘low-byte partial dividend — low-byte divisor’ subtraction result. You 
could use any memory location for this but ‘the program will work 
fastest if you use the Y register. 


9.3 Sorting a BASIC array 


We have covered a lot in this book (but not everything!) — enough to 
now solve a recurrent practical problem of BASIC programming. We 
are going to write an assembly language program to sort a BASIC string 
array and so produce high speed sorting. We are still going to use the 
‘bubble’ sort method introduced in Unit 6. There are much faster 
sorting methods, but they are harder to understand. However, even 
with the very inefficient ‘bubble’ method, our program is going to 
produce some very respectable sorting times. Here are the comparative 
results between a BASIC ‘bubble’ sort and the assembly language 
program that we are going to describe: 


Items sorted Typical time for sort 
(seconds) 
BASIC 6502 
100 strings of length 5 26 0.84 
100 strings of length 30 32 0.85 
250 strings of length 30 201 5.32 


The program is all about memory locations: where are the strings of the 
array? To understand what is happening, you have to know something 
about how the BBC Micro stores string arrays. 


When the Micro executes the statement DIM space$(10), it makes sure 
that it has enough room for 11 strings and, if it has, it sets up an 
information block to contain the details of the array. The actual strings 
of the array are spread all over the memory but the information block 
telling us (a) where the strings are , (b) how much memory has been set 
aside for them and (c) how long the current string is at any location. is 
in one continuous block of memory. The information block for a 
one-dimensional string array is shown in Figure 9.2. The block 
includes the name of the array less its first letter (pace instead of space 
in our example). The missing first letter is held in another part of the 
Micro’s index to the BASIC variables. 


You can see from this that, provided we can find the start address of the 
array, we can find all the addresses of all of the strings together with 
their lengths. You will remember that CALL can be used to place the 
addresses of BASIC variables into the parameter block at &600. So we 
can use CALL to find the address of the information block on the first 
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Start address of 
index to array 











me 
of name 
array ee 
&24 (= $) 
&28 (= 0 
of size 
of array 
Address of first element (low) 
Details Address of first element (high) 
of 
element 0 Bytes currently allocated 
Length of current string 
Repeat as \ 
Details of forelement1 , 
element 1 \ 


Figure 9.2 How the BBC Micro stores the details of an array 

string in the array. We do this with CALL program, A$(0) where A&{ ) is 
the array. (Don’t forget that A$(0) is the first string and not A$(1)). CALL 
program, A$(0) will place the address of the string information block 
(SIB) on the element A$(0) into &601 and &602. We don't need to use 
CALL for any further information on A$(0) since it is all there in the 
SIB. Similarly, we don’t need to use CALL to get information on A$(1). 
A$(2) etc. since their SIBs follow that of A$(0) in the memory. 


From there on, the pattern is regular: each string in the array has a 
4-byte String Information Block. We can therefore find the address of 
any string and so compare two strings to decide whether or not they are 
in the correct order. To do this, we are going to have to work through 
pairs of strings, letter by letter, starting at the first letter. The most 
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convenient way to do that is to put the addresses of the strings in Zero 
Page so that we can use indexed addressing to work through them: 


STRING INFORMATION BLOCK 


ey these pointers 
to string A in 
Zero Page at ‘item1’ 
and ‘item1+1° 
Put these pointers 
to string B in 
Zero Page at ‘item2’ 
and ‘item2+1° 


String A 


String B 


Indirect indexed addressing will enable us to take a character from 
string A and compare it with the same character in string B. If the 
character in string A is further on in the alphabet than the character in 
string B, we swap the two strings around and go on to the next pair. If 
the character in string A is the same letter as in string B, or before the 
string B letter in the alphabet, then we go on to look at the next letter 
along each string. This continues until either we find that we have to 
swap the two strings around, or we reach the end of the shorter of the 
two strings and find that they don’t need to be swapped. If we have not 
found a swap to be needed by the time we have reached the end of the 
shorter string, then we need to swap the strings so that the shorter 
comes first e.g. of the two strings ‘JAM’ and ‘JAMMY’, ‘JAM’ should 
come first in an ordered list. 

Swapping the strings involves a useful trick. The Micro only knows 
what, say, B$(3) is by the details contained in the String Information 
Block for B$(3). So, if we want to swap B$(3) with B$(4), we can do this 
by putting the information on B$(3) into the information block on B$(4) 
and vice versa. That involves swapping 4 bytes of information with 
another 4 bytes of information. 


The program for the array sort is given in Program 9.2. _ 


10 REM ARRAY SORT 

20 

30 MODE 3 

40 HIMEM = HIMEM - 300 
50 DIM space$(255) 


60 

70 baselow = &70 : REM Plus &71 

80 item! = &72 : REM Plus &73, &74, &75 
90 item2 = &76 : REM Plus &77, &78, &79 
100 elements = &7A ; 

110 temp = &7B : REM Plus &7C 

120 flag = &7D 


130 shortest = &7E 
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140 par 
150 

160 FOR p 
170 P% 
180 CoP 
190 

200 -so 
210 

220 \TA 
230 LDA 
240 STA 
250 LDA 
260 STA 
270 LDY 
280 LDA 
290 STA 
300 

310 \MA 
320 

330 -re 
340 LDA 
350 STA 
360 LDX 
370 LDA 
380 STA 
390 LDA 
400 STA 
410 

420 \PA 
430 

440 ~ne 
450 LDY 
460 LDA 
470 STA 
480 INY 
490 LDA 
500 STA 
510 INY 
520 LDA 
530 STA 
540 INY 
550 LDA 
560 STA 
570 INY 
580 LDA 
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= &600 


ass = 0 TO 3 STEP 3 
= HIMEM 
TO 

rt 
KE PARAMETERS FROM PARAMETER BLOCK 

part4 \Get low-byte of address of ‘elementsi%' 
temp 

par+5 \Get high-byte of address of ‘elementsz' 
temp+1 

#0 

(temp),Y \Get value of ‘elementsi%' 

elements \Store it in ‘elements’ 

IN LOOP OF SORT 
peat 

#0 

flag \Clear swap flag 

elements \Put number of elements into X 

par+1 \Get low byte of address of SIB of 

string A 
baselow \Copy into another zero page location 
part+2 \Get high byte of address of SIB of 
string A 

baselow+1 \Copy into another zero page location 
SSES THROUGH ON CURRENT BUBBLE 
xtpass 

#0 


(baselow),Y \Get low-byte of address of string A 
item1 \Store it 


(baselow),Y \Get high-byte of address of string A 
item1+1 \Store it 


(baselow),Y \Get number of bytes allocated to string 
item1+2 \Store it 


(baselow),Y \Get length of string A 

jitem1+3 \Store it 
\Increment pointer 

(baselow),Y \Get low-byte of address of pointer to 
element B 


A 


590 
600 
610 


620 
630 
640 


650 
660 
670 
680 
690 
700 
710 
720 
730 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 


900 


910 
920 
930 


940 


950 
960 
970 
980 
990 
1000 


STA item2 \Store it in zero page 


INY \Increment pointer 

LDA (baselow),Y \Get high-byte of address of pointer to 
element B . 

STA item2+1 \Store it in zero page 

INY 

LDA (baselow),Y \Get number of bytes allocated to 
string B 

STA item2+2 \Store it 

INY 


LDA (baselow),Y \Get length of string B 
STA item2+3 


-compare 


\FIND LENGTH OF THE SHORTER OF THE TWO STRINGS 


LDA item1+3 \Get length of string A 

CMP item2+3 \Compare to length of string B 
BCS second \Branch if second is the shorter 
STA shortest \String A is the shorter 

JMP checkdone 

-second 

LDA item2+3 \Get length of string B 

STA shortest \Store it in 'shortest' 
.-checkdone 


\COMPARE THE TWO STRINGS, CHARACTER BY CHARACTER 
LDY #0 


-nextcompare 


LDA (item1),Y \Get a byte of string A 

CMP (item2),Y \Compare to same byte of string B 

BCC swapdone \If string B character > string A 
character, skip Swap 

BNE swap \If string A character > string B 
character, then swap 

INY \Increment character pointer 

CPY shortest \Compare to length of shorter string 


BEQ@ ordercheck \If end of shorter string, end character 
comparisons 

BNE nextcompare \Loop back to compare next character of 
the two strings 


\CHECK WHETHER SHORTER STRING IS FIRST OR NOT 
-ordercheck 


LDA item1+3 \Get length of string A 
CMP item2+3 \Compare to length of string B 
BCC swapdone \Skip swap if second string is 
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1010 BEQ swapdone \not the shorter 


1020 

1030 \SWAP THE SIBs FOR THE TWO STRINGS 

1040 -swap 

1050 Loy #0 \Initialise pointer to characters 
of the two strings 

1060 LDA item2 \Get low-byte of address of string B 

1070 STA (baselow),Y \Store it in string A SIB 

1080 INY 

1090 LDA item2+1 \Get high-byte of address of string B 

1100 STA (baselow),Y \Store it in string A SIB 

1110 INY 

1120 LDA item2+2 \Get number of bytes allocated to 
string B 

1130 STA (baselow),Y \Store it in string A SIB 

1140 INY 

1150 LDA item2+3 \Get length of string B 

1160 STA (baselow),Y \Store it in string A SIB 

1170 INY 

1180 LDA item! \Get low-byte of address of 
string A 

1190 STA (baselow),Y ‘\Store it in string B SIB 

1200 INY 

1210 LDA item1+1 \Get high-byte of address of string A 

1220 STA (baselow),Y \Store it in string B SIB 

1230 INY 

1240 LDA item1+2 \Get number of bytes allocated to string A 

1250 STA (baselow),Y \Store it in string B SIB 

1260 INY 

1270 LDA item1+3 \Get length of string A 

1280 STA (baselow),Y \Store it in string B SIB 

1290 

1300 LDA #&FF 

1310 STA flag \Set swap flag 

1320 \END OF CURRENT PASS 

1330 

1340 .»Swapdone 

1350 cLCe \Prepare to move ‘baselow' up 4 bytes 

1360 LDA baselow \Get 'baselow' 

1370 ADC #4 \Add 4 bytes to it 

1380 STA baselow \Store new value 

1390 BCC samepage 

1400 INC baselow+1 \If there was a carry, add it to 
basehigh 

1410 

1420 .~Samepage 

1430 DEX \Unsorted length is now 1 item less 

1440 BEQ@ test 
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1450 JMP nextpass 


1460 

1470 -test 

1480 LDA flag \Did the last sweep through List 
produce a swap? 

1490 BEQ@ exit \If 'no swap' then exit 

1500 JMP repeat \Otherwise, repeat the routine 

1510 

1520 exit 

1530 RTS \Otherwise exit (array is sorted) 

1540 ] 

1550 NEXT pass 

1560 


1570 REM Test routine 

1580 elements% = 255 

1590 

1600 REM Fill array with random letters 
1610 FOR I% = 0 TO elements% 


1620 lLength% = RND(5) 

1630 FOR J% = 1 TO Length% 

1640 space$(I%) = space$(I%) + CHRS$(64 + RND(26)) 
1650 NEXT 

1660 NEXT 

1670 

1680 TIME = O 

1690 

1700 CALL sort, space$(0), elements% 

1710 


1720 now = TIME 
1730 PRINT * "Sort time " ; now / 100 ; " seconds." 
1740 FOR I = O TO elements% 


1750 PRINT space$(I) 
1760 NEXT 
1770 END 


Program 9.2 


In Program 9.2, the sections of code headed .nextpass and .swap each 
consist of a repeated operation. In both cases it would be neater to 
shorten the code by turning them into loops. However, that would slow 
the program down which defeats the primary object of an array sort — 
speed. 


Restrictions on the program 

The maximum number of strings that can be sorted as the program 
stands is 255 since the X register holds the number of strings to be 
sorted. If you want to sort more, then you will need a 2-byte counter to 
replace X. 
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Assignment 


There is no assignment for this unit. 


Answers to SAQs 


SAQ 1 
10 REM 16 BIT DIVISION 
20 
30 divlow = &70 


40 divhigh = &71 

50 pdivlow = &74 

60 divqlow = &72 

70 divqhigh = &73 

80 pdivhigh = &75 

90 

100 DIM 2%50 

110 FOR pass = 0 TO 3 STEP 3 
120 P% = 1% 


130 C 

140 OPT pass 

150 

160 -divl6 

170 LDA #0 

180 STA pdivlow \Set low partial dividend 

190 STA pdivhigh \Set high partial dividend 

200 LDX #8&10 \Set bit counter 

210 

220 -next 

230 ASL divqlow \Shift dividend/quotient left 

240 ROL divqhigh \Shift divident/quotient left 

250 ROL pdivlow \Shift bits into partial dividend 

260 ROL pdivhigh \Shift bits into partial dividend 

270 LDA pdivlow \Load low byte of partial dividend 

280 

290 SEC \Prepare to subtract low bytes 

300 SBC divlow \Subtract low divisor 

310 TAY \Save result in Y 

320 LDA pdivhigh \Load high partial dividend 

330 SBC divhigh \Subtract high divisor 

340 BCC done \Skip subtraction if dividend is less than 
divisor 

350 INC divqlow \Increment quotient 

360 STA pdivhigh \Save new high partial dividend 

370 STY pdivlow - \Save new low partial dividend 

380 

390 -done 

400 DEX 
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410 BNE next 


420 

430 RTS 

440 ] 2 
450 NEXT pass 

460 


470 REM Test run 

480 INPUT "Enter dividend " first 

490 ?&72 = first MOD &100 

500 7&73 = first DIV &100 

510 

520 INPUT "Enter divisor " second 

530 ?7&70 = second MOD &100 

540 7&71 = second DIV &100 

550 

560 CALL divi16 

570 

580 PRINT "Quotient Clow-byte/high-byte) " 
590 PRINT "Remainder (low-byte/high-byte) " 


600 PRINT "Quotient (decimal) = " ; 27872 + 27873 * &100 

610 PRINT "Remainder (decimal) = " ; ?&74 + ?&75 * &100 
Test run 

>RUN 


Enter dividend 45643 

Enter divisor 3462 

Quotient Clow-byte/high-byte) 13 0 
Remainder (low-byte/high-byte) 125 2 
Quotient (decimal) = 13 

Remainder (decimal) = 637 


Program 9.3 
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UNIT 10 
Round-up 


10.1 Placing programs in memory 
10.2 Placing data in memory 

10.3 Programming errors 

10.4 Program style 


10.5 Saving machine code 
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10.1 Placing programs in memory 


In Unit 2 we introduced the various methods of placing machine code 
programs into memory. Now that we have developed more programs 
we can expand on what we said there. 


Method 1: space allocated by the BASIC program 

Allocate the space with a statement such as: 
DIM 2%50 (allocates 50 bytes labelled 2%) 
DIM space 100 (allocates 100 bytes labelled space) 
DIM prog%200 (allocates 200 bytes labelled prog%) 


The space allocated in this way is just above TOP and the Micro 
ensures that BASIC’s variables do not use this space. It is therefore an 
easy way of keeping an assembly language routine out of the way of any 
other memory usage. 


Assemble the program in the reserved space by the statement P% =... 
and execute it with CALL 2% or CALL Label: 


P% = 2% followed by CALL 2% 
P% = space followed by CALL space 
P% = prog% followed by CALL prog% 


This method is ideal when one BASIC program is to have several 
assembly routines within it, each to be called at different points in the 
BASIC program. It leaves the assembler to take the decisions about 
memory allocation for the routines and you don’t need to know where 
they are in order to call them. The routines are assembled into their 
memory blocks each time the BASIC program is run but they are saved 
as assembly language statements when the BASIC program is saved 
with the usual BASIC SAVE command. 


Method 2: space chosen within BASIC'’s memory area 


Allocate the space with a statement such as: 


P% = &2000 
P% = here (where here is a previously defined numeric variable) 


Call the program by a statement such as: 


CALL &2000 
CALL here 


This is a useful method if you want to keep several independent 
routines in memory at the same time. But you do have to be careful that 
they don’t overlap, that their variables don’t try to use the space of each 
other’s programs and that the whole lot are clear of any BASIC program 
currently in memory and of its variables. All in all, a method full of 
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dangers when your machine code program is linked to a BASIC 
program! 


Method 3: space chosen outside BASIC's reach 


Find an area of memory that BASIC can’t use or can be prevented from 

using for the time being. Here are some possibilities: 

O Use &DOO — &DFF which is specially set aside for user routines 
(except on disk-based machines). 

C1 Use space which is reserved for something else which you know 
you are not going to need e.g. one of the buffers. (But you have to be 
certain that the buffer is not going to be used by the Micro for its 
intended purpose). 

(] Move PAGE up and insert your routines between the old value of 
PAGE and the new value of PAGE. 

O Move HIMEM down and insert your routines between its new 
location and the default value for the Mode you are in. If you do this, 
you must remember not to change Mode since this would re-set 
HIMEM again. 


O Place the routines in your chosen space by statements such as: 
P% = &D00 


P% = &E00 (assuming PAGE has been moved up in a system 
with only the Cassette Filing System). 


P%=HIMEM (assuming HIMEM has been moved down) 


O Call the routines with statements such as: 


CALL &D00 
CALL &E00 
CALL HIMEM 


This method is ideal when you want a routine in memory that will stay 
there whilst several BASIC programs are used. 
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10.2 Placing data in memory 


If your program includes data that needs to be saved with the program, 
then two main methods are open to you. 


Method 1: leaving the data in the BASIC program 


If your assembly routine is to be stored as assembly language then it 
will be stored as part of the BASIC program which assembles it. Any 
data needed by the assembly program can be stored within the BASIC 
program. It can be stored in the following ways: 


Oj In indirection statements: 
7&2000 = &67 
&2000!0 = &8A54DF00 


C In strings at fixed locations: 
$$ = "String to be saved with the program" 


O In DATA statements which would then have to be read by the 
BASIC program before the data could be accessed by the 
machine code program. 


Method 2: saving the data with the machine code 


If you want to save the machine code rather than the BASIC assembly 
language program which created it, then any data needed by the 
program has to be saved with it. Since saving a machine code program 
involves saving a block of memory (see section 10.5), the data locations 
have to be consecutive with the program. It makes sense to either put 
all the data immediately before the program or immediately after. 
Strings 

There is a neat way of putting a series of items of string data into the 
area of memory immediately following the machine code. Each string is 
labelled msg( ) where the number of the string (or message) goes in the 
array bracket. The method also demonstrates how to include control 
codes in the strings so as to simplify their presentation on the screen. It 
uses 0 as an end-of-string delimiter instead of &OD as you have done so 
far. 
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10 REM Strings in assembly language 


20 


30 oswrch = &FFEE 


40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


240 


250 


260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


DIM msg(3) 
DIM 2%300 
FOR pass = 0 TO 3 STEP 3 
PR = 1% 
C 
OPT pass 
LDY #0 


-msgiloop 
LDA msg(3),Y 
BEQ msgidone 
JSR oswrch 
INY 

BNE msgiloop 
-msgidone 


-exit 
RTS 
] 
PROCTEXT(1, "First message plus two line feeds" + 
CHR$10 + CHRS$10 + CHR$13) 
PROCTEXT(2, CHR$31 + CHRS$14 + CHR$12 + "Tab x,y then 
second message") 
PROCTEXT(3, CHR$10 + CHR$10 + CHR$13 + "Message three 
with a beep" + CHR$7) 
NEXT pass 
CLS 
CALL Z% 
END 


DEF PROCTEXT(N,A$) 


msg(N) = P% 

$msg(N) = A$ 

PX = PX + LEN(AS) + 1 
P42? - 120 

ENDPROC 


Program 10.1 


You can then print a particular message, say message 1, by a routine 
such as appears in Program 10.1 at lines 120 to 180. 
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Numeric data 
This can be placed after the machine code program using a routine such 
as: 
10 REM Numeric data storage 
20 
30 C 
40 
50 
60 J 
70 
80 REPEAT 
90 READ N 
100 IF N <> 999 THEN ?P% = N 
110 UNTIL N = 999 
120 END 
130 
140 REM Numeric data to be stored with machine code 
150 DATA &12,0,8F3,&6,8&8B,999 


Program 10.2 


10.3 Programming errors 


Machine code programs do not produce error messages when they are 
running. The assembler itself produces some messages where errors 
can be picked up during assembly process. Attempting to place a 
number greater than &FF into an 8-bit location: 


LDA #593 


will produce the assembler error message ‘byte’. Most of the time, 
however, assembly language programs either work or don’t work with 
not much in the way of in-between results. The programs that don’t 
work aren't very forthcoming about what is wrong. Checking through 
bugged programs requires careful work with pencil and paper to see 
what happens when particular assumptions are made about test data. 
When doing this you will be looking for results that you did not intend 
and for errors in the assembly language itself. Let’s look at some of the 
commonest errors that you will need to watch out for. 


Mixing numbers and addresses 
e.g. writing 


LDA &70 for LDA #8&70 
or 

LDA #870 for LDA &70 
Both statements are correct so the assembler will not pick up an error. 
Only one, however, can be correct for the purpose you have in mind. 
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Mixing Hex and decimal 
e.g. writing 


LDX #56 for LDX #8&56 
or 
LOX #856 for LDX #56 


Some of these errors can’t be detected by the assembler. Where they 
can, you are likely to get an error message such as Bad hex or Byte at 
... This means that the number that you are trying to use as an operand 
is not in a form permitted by the assembler — usually because it is too 
large. 


Confusions over address modes 

It’s easy to use the wrong mode for the purpose you have in mind. Here 
is a check list which should help you to choose the right mode for the 
job. 


Operand required Mode to use Form 
A number IMMEDIATE #number 
An absolute 16-bit ABSOLUTE &mmmm 


address 
Zero page ZERO PAGE &mm 
16-bit indexed ABSOLUTE IND X  &mmmm,X 
ABSOLUTE IND Y &mmmm,Y 
Zero Page indexed ZERO PAGE IND X &mm,X 
ZERO PAGE IND Y &mm_.Y 
An indirect Absolute IND ABSOLUTE (&mmmm) 


address 
Indexed in Zero INDEXED INDIRECT (&mm.X) 
Page 
Indexed outside INDIRECT INDEXED (&mm),Y 
Zero Page 


Address relative RELATIVE MODE &mm 
to present 

position 

Accumulator ACCUMULATOR A 
None required IMPLIED 
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Points to watch 


( With all modes that state an address, check that the address 
will contain the required data. 


( With Zero Page Indexed, make sure that the index is not too 
large. The index plus the base Zero Page address must not 
exceed &FF. (Indeed, with the BBC Micro where the free Zero 
Page locations are &70 to &8F, the base plus index must be in 
the range &70 to &8F). 


O With indexed indirect and indirect indexed, the base address 
will be 16-bit but stored as two 8-bit numbers in Zero Page. 
These must be in adjacent locations (low-byte first) and you 
must remember to put the address of the lower location in the 
actual statement. You never need to address the higher of the 
two locations e.g. 


Indirect indexed used to index from &3000: 


Base address = &3000 

Store in Zero Page: &70 
&71 

Address this as (&70),Y. 


0 (low-byte of &3000) 
&30 (high-byte of &3000) 


O With relative mode, don’t try to branch more than 127 bytes 
forwards or backwards. Don’t try to calculate the length of a 
branch — use labels and let the assembler do the calculation for 
you. If you try to branch too far, the assembler will tell you 
with an ‘out of range’ error message. 


Error messages: if you are using indexed addressing and make an error 
that the assembler can detect in your index, you will get the message 
Index at .... 


Mistakes with the flags 


Instructions which do not affect the flags 

Remember that different instructions affect different flags and that 
some instructions do not affect any of the flags. It is all to easy to use a 
test after an instruction which does not affect the flag that you have 
chosen to test. For example, the increment instructions do not affect the 
C flag, so using BCC or BCS after INC, INX or INY will produce a result 
that you did not intend. (However the N and Z flags are affected.) 


Similarly, the store instructions do not affect the flags at all so you must 
never attempt to branch on the basis of the result of a store instruction. 


Incorrect use of the Z flag 
The Z flag is 1 if the result of the last operation that could have affected 
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it was 0. The Z flag is 0 if the result of the last operation that could have 
affected it was not zero. It’s easy to think that this is the opposite way 
round. 


Incorrect use of the carry flag 


With ADC 

ADC is the only addition instruction in the 6502 instruction set, so all 
additions include a carry. If you do not want a carry, set the carry to 0 
before the addition with the statement CLC (make C = 0). 


With SBC 

All subtractions include a borrow equal to the inverted value of the 
carry flag. So, if you do not want a borrow to take place, you must set 
the borrow to 1 before the subtraction. To do this you use SEC (makes C 
= 1). 


With CMP, CPX and CPY 

These three instructions affect the C flag but because ‘compare’ 
involves an internal subtraction, the C flag behaves as an inverted 
borrow. If the register (A, X or Y) is greater or equal to the value it is 
being compared to, the C flag is set to 1. C is only 0 if the register value 
was found to be less than the value to which it was being compared. 


10.4 Program style 


Assembly languages have the same deficiency as standard BASIC in 
that they are unstructured. The programmer is free to write messy and 
incomprehensible programs in such languages. BBC BASIC offers the 
opportunity to write structured programs using its many structured 
features, but no similar facilities are available in assembly language. If 
you wish to produce clear, understandable, assembly language pro- 
grams, the style must come from you. Here are some guide-lines which 
may help you: 


First, plan your program on paper, writing out the whole program. 


Use only labels for memory locations in your operands. Never 
include an actual address in a program. (We have used actual 
memory locations on occasion but only because we were still 
building up the use of labels). 


]) All branches should be to labels. Never insert the number of bytes of 
jump required for a branch. 


Where a constant is to be used as an operand and that constant has 
some meaning, replace it by a meaningful label e.g. if &2A is to be 
used to print a star, then use the label star = ASC '"*" or eol = &OD. 


(] Subdivide your program into sensible modules. Start all modules 
with a rem line i.e. a line that starts with ‘\’ and has no other 
assembly statement on it. Put at least one empty line between 
modules. 
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Use plenty of clear comments. Labels and comments take up 
memory space during program development but are essential if you 
are to understand what you are doing. You can, of course, remove 
them from an actual working program if vou need the memory 
space. Note that if you save the program as machine code, the 
comments and labels are lost automatically. 

| Stick to one assembly instruction per line. 


| Use empty lines to separate blocks of code (a line number followed 
by one press of the space bar will produce an empty line on the BBC 
Micro). Although there is no LISTO command in assembly language 
listings, you can synthesise it by indenting loops etc. with spaces. 


10.5 Saving machine code 


The programs in this course are BASIC assembly language programs 
and as such can be saved on cassette or disk in the same way as any 
other BASIC program. For example, to save Program 2.5 under the 
name SUB, you type 


>SAVE "SUB" 
and to load it back, you type 
>LOAD "SUB" 


It is also possible to save the machine code which has been generated 
by an assembly language program during the assembly process. If you 
look back at Program 2.5, its assembled version produced 8 bytes of 
machine code located between &2000 and &2007. In these 8 bytes are 
the numbers 


A9 38 38 E5 70 85 71 60 


They are a full machine code program and can be saved as such. 
To save a machine code program, you use *SAVE. The syntax of the 
*SAVE command is 

>*SAVE "PROG" ssss ffff eeee 


where 


ssss = the start address of the code to be saved (2000 for Program 
2.5). Note that you must not put & in front of the hex number even 
though it is a hex number. 


ffff = the end address of the code plus 1 (2008 for Program 2.5). 


eeee = the execution address. This is optional and if you leave it 
out, the computer will assume that the execution address is the 
start address. 
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So, to save the machine code generated by Program 2.5, type 
>*SAVE "SUB" 2000 2008 


(If the program has appended data (e.g. text), assemble the program and 
then check the value of P% by typing PRINT P%. This will give you the 
end address of program plus data so that you can save both together.) 


To load this back again, you can do one of two things: 


Either: type *RUN "SUB". This will cause the program to be loaded 
and run directly. 


Or: type *LOAD "SUB" 2000 which will cause the program to be 
loaded at &2000. It will not be executed until you type CALL &2000. 


You will find that if you load a machine code program, you cannot use 
LIST to see it. The program is there, but invisible! The only way you 
can see it is by decoding it from its memory block with a special 
program called a disassembler. Such programs can be purchased for a 
few pounds. 
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Code 


Doe (IIx) 


(0) 
(1) 
(2) 
(3) 
(4) 
(5) 
(6) 
(7) 
(8) 
(9) 
10 (A) 
11 (B) 
12. (C) 
13° (Dd) 
14 (E) 
15 (FD) 
16 (10) 
17 (11) 
18 (12) 
19 (13) 
20 (14) 
21 (15) 
22 (16) 
23 (17) 
24 (18) 
25 (19) 
26 (1A) 
27 (1B) 
28 (10) 
29 (1D) 
30 (18) 
31 (1F) 
32 (20) 
33 (21) 
34 (22) 
35 (23) 
36 (24) 
37 (25) 
38 (26) 
39 (27) 
40 (28) 
41 (29) 


COnNOoOVEWwWn- co 


BBC Micro character set’ 


Char 


Does nothing 

Next character to printer 
Enable printer 

Disable printer 

Separate text/graphics cursors 
Join text/graphics cursors 
Enable VDU drivers 

Make a short beep 

Backspace cursor one character 
Forwardspace cursor one character 
Move cursor down one line 
Move cursor up one line 
Clear text area 

Move cursor to start of line 
Page mode on 

Page mode off 

Clear graphics area 
Define text colour 

Define graphics colour 

Define logical colour 

Restore default logical colours 
Disable VDU drivers 

Select screen mode 


Re-program display character 


Define graphics window 
Plot m, x, y 

Restore default windows 
Does nothing 

Define text window 

Define graphics origin 
Home text cursor to top left 
Move text cursor to x, v 


Space 
! 


-~ A - Oe HH 


Code 


Dec (Hx) 


42 
43 
44 
45 
46 
47 


(2A) 
(2B) 
(2C) 
(2D) 
(2E) 
(2F) 
(30) 
(31) 
(32) 
(33) 
(34) 
(35) 
(36) 
(37) 
(38) 
(39) 
(3A) 
(3B) 
(3) 
(30) 
(3E) 
(3F) 
(40) 
(41) 
(42) 
(43) 
(44) 
(45) 
(46) 
(47) 
(48) 
(49) 
(4A) 
(4B) 
(40) 
(4D) 
(4E) 
(4F) 
(50) 
(51) 
(52) 
(53 


Char 


TCONAUFWNHAR=O~-: 


noweoevoz~ SerrAcecer ztonrmooenr wrFoo-wvwv tt Ars 


APPENDIX 1 


Code 


Dec (Hx) 


84 


110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


(54) 
(55) 
(56) 
(57) 
(58) 
(59) 
(5A) 
(5B) 
(5) 
(5D) 
(SE) 
(SF) 
(60) 
(61) 
(62) 
(63) 
(64) 
(65) 
(66) 
(67) 
(68) 
(69) 
(6A) 
(6B) 
(6C) 
(6D) 
(6E) 
(6F) 
(70) 
(71) 
(72) 
(73) 
(74) 
(75) 
(76) 
(77) 
(78) 
(79) 
(7A) 
(7B) 
(7C) 
(7D) 
(7E) 
(7F) 


Char 


>HI NK KOE KOCH 


TwRKAN™ KX Ec Cet nnnvests Bw eo roervn ana 


Delete 


* This is the same as the ASCII code for printable characters and the main 


control codes i.e. excluding the Mode 7 print controls above code 130. 
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APPENDIX 2 





{t] 


(t] 


[2] 
[2] 


[2] 
[2] 
[2] 


[2] 
(z] 
[2] 


(t] 
[1] 


(Dale 


aut 
“pul 


(Lig 


(1z)s 
A‘ 


(19)9 
(x 


(02)z 
(os)z 


(ov)z 
(oa)z 
(o€)z 


(ose 


(08)z 
(06)z 


(te)s (1zZ)9  - 


aay 


(8:))Z 
(q)z 


(88)z 
(vole 


pal] 


‘puy) ‘puj) -pjay -dwy 


(egt (agit (av)t 
= -  (oz)9 
= - (tle 


- (gp2 (ago 
(6e)t (ast (at)t 


-  (aq)z (aoe 


= - (90)r 
= -  (Oalr 
(6a) (ad)t (ao)r 


(at)2 (go)9 
(eg) (dele (az)r 
(6z)t (az)r (a9}r 


A x 
sqv  sqV. SAV 


— (air 


-  (94)9 
—  (G¢)F 


-  (9a)9 


~  (sa)r 


- — (9t)9 
-  (se)p 
- (SZ) 
A asd x abd 
o1aZ 0187 


sapoo do pue sa[949 490]9 


(evle 


(9q)s 
(ste 


(90) 


(bo)e 
(pale 
(coje 


(90)s 
(Sze 
(sa)e 
asod 
o1a7 


‘sapoul ssaippe 


(6z)z 
(69)z 


(vo)z 


puuwy Joy 


OZIdd AN 
paysaf{o séo).4 


puesado yjiM Joye(nuins3e peoy 
auljnoigns 0} duin{ 

ssaippe au 0} duin{ 

I Aq Jajsi8al 4 JuaWaIDU] 

I Aq Ja\st8ar x JUaWaIDU] 


1 Aq Joyesado juauiasou] 

(y Ul q[NsaJ) Y yyIM puesado YC aatsnaxq 
1 Aq Jajsida1 4 UaWIaI9aq] 

+] Ag Jaysidar x Juautai99q, 

1 Aq puesedo juautai9aq 


Jajsidaz { yyim puesado aveduior 
Jaysidal X YIM puesedo aredwor) 
JoyejNUINIIe YIM puesado areduroy 
BEL} MO]}1aA0 (9 0} Jas =) Jea[D 

8eIj ayqestp jdnszayur (9 0} Jas =) seayD 


8e]} pou [eUNLOap (O 0} Jas =) IeaTD 
Bey (0 0} }aS =) Aused rea) 

(L = A Jl at) a8 MoysaA0 UO YDuReIg 
(0 = A Jl. a'l) aeayjo MoyjiaA0 UO YoueLG 
yeaig 39104 








(0 = N Jl ‘a't) snyd ynsar jt youerg 

(0 = Z Jl ‘a'l) O1az jOU yjNsar JI YouRIg 
(L = N Jl at) snurur yjnsay jt youeig 
puesado ujIM Joyepnunsoe ysay, 

(L = Z Jl al) O sem j[Nsa_ Jsey JI youerg 


(L = 9 Jl ‘a'l) jas Aizeo uo youelg 
(0 =) Jl at) seayo Asses uo youerg 
jiq auo ya] pursado yIYS 


(Y Ul y[Nsad) JOJe]NUINIe YWM JOyeJado NY 


ALD YM JO}e|NuINIIe 0} puerado ppy 


uonoy 


:J9S UOTINIsUT ZOS9 


val 
asi 
dnl 


ONI 
403 
ASC 
xad 
3a 


apop 
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yauipuy uy 
aanepay fay 


peydwy = duty 
aynjosqy = sqy 
aseg = ag 


ayeIpawwy p,Wwuy 


[t] - (tale (1a)9 





pan 
“Day Puy! 


- (169 (ae)9 


'X 


ally 
‘pu -OpYy -duy 


(g6)z 


(ve)z 
(ve}z 
(va)z 
(ev)z 
(vv)z 


(a2)z 
(g4)z 


(g¢)z 


(09)9 
(o+)9 


(8z)t 
(89) 
(g0)€ 
(ate 


(valz 


pai 


‘puesado jo 4 }1q saulooaq y :puesado Jo g jI1q saulooaq A ([¢] 
‘a8ed Jayjour Oo} st youRIG JI S8[9AD YDOID 0} Z PPY 

‘aBed oures 0} SI YoueIq jt sa[9A9 yDO]9 0} 1 ppy [Z! 

‘AJepunog aged e sassoio uorjeJado jt sap9A9 YD0]2 0} 1 ppy {T] 


:S9)ON 


(ag ‘epoo do) sajpAo yoo]9 p = (qe)P ‘d'2 :yeuLIOy ANQUY 


- - (oe ~- (pele (8)2 -  -  -------- 
= - (ga)p (96) - (99)2 - ay weecesee>S 
(66)s (as)s (as)b 4=- (seh (S82 - 2 29- -------- 
S ms = . es ne A So eee 
= 7 - _ a 2 a Op ee eee 
2 = _ _ _ _ _ Sy Seas 
(ea)t (Gale (Gale = - (Sale (Sale (em)z = - RES 
- (g2)2 (ago - (94)9 (996 - (W9)2 «*----- - 
— (me)z (azo - (9e)9 (927s - (Wz)Je + ¥---- 7 ; 
(elt (ate (qoje - (st)r (sole (60)2 - -*----- F 
- (ae)z (ato - (9c)9 (966 - (Wee x2----- 0 
- (om (ovr - (halt (eve (OVIZ -  -*----- r 
(gait - (ave - — (ovle (@vi2 - -a¥----H * 
A xX aad x a8d a8nd 3Z10@ AN 
sqay Say SQ GNaz «GuaZ olaZ PwU] 9Y — pajdafjp soo, J 


‘[ saulocag Be] iL 

‘9 sauiocaq 8ejJ 0 

“payoayye yOu Be,y  — 

*L 10 Q awOIaq Pynod :paysaye Beyy os 
“yoog siyj) ul pasn JON { 


JoyepnuNoe O)UT Ja}stBa1 Xj Jaysuery, 


Jayurod y2e}s oyu! x Jaysuely, 
JOJeNUINDIE YU Jaystdal y JoysUeIL, 
Jaysidaa YX Oyu Jayutod yoeIs Josue 
JaystBar X OyUY JOye[NUINDIe JoysueIL, 
JaystBar X O7UL JOEPNUINIIE JaysueL], 


Jayst8al 4 310)§ 

4a)S1881 ¥ 310)S 

JOJE[NWINIIE 8J0}S 

Be]y apqesip ydnssajul ({ 0) 19S =} }9S 
Sel} apour jewroap (1 0} yas =) 19g 


Se]j Arsed (1 0) J8S =) 12S 

ALeo YIM sOye[NUINIIe wo puesado eqns 
aulyNoigns wos] UIN}ay 

ydnajul wo unjay 

)YBtI y1q auo puesado aye}Oy 


¥e] Iq auo puesado ayeyoy 

yorys Woy snjeys ossaooad [[Ng 
yor]s Wosy JOe|NUMIIe [[Nd 
yae)s 0jUO snyeys Jossa901d ysndg 
ypejs oJUO JOye[NUINIDe YsNd 


(YW Ul yJaq yJNsad) y YIM puesado YO aAIsNpoU] 
Buryjou sa0q 

(0 £ 31g do sayeyy) 11q auo Ys puerado yIYS 
pueiado wid Ja}s1da1 4 peoy 

puesado wo Jaysidar X peoT 


uonjoy 


hay 


VAL 


(SXL 
VXL 
(XSL 
AVL 
XVL 


ALS 
XIS 
VIS 
{1aS 
{qas 


Og 
29s 
Sl 
(LLY 
wou 


TOu 
dld 
Vid 
dHd 
VHd 


vuo 
{dON 
aS 
ACT 
xa 


apa) 
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Timing and cycles 

The speed of operation of a microprocessor is controlled by an 
electronic clock. This clock sends out pulses which determine the 
precise moment when events can take place. Asa result, it is possible to 
be very precise about how long any particular 6502 instruction will 
take to execute. The BBC Micro uses the 6502A microprocessor which 
has a 2 Megahertz clock i.e. a clock that sends out 2 000 000 pulses each 
second. One ‘cycle’ of the clock therefore takes 0.5 microseconds. 


In the 6502 instruction set table in Appendix 2, you can see how many 
cycles each instruction takes e.g. 


LDA in immediate mode takes 2 cycles 
LDA in indexed indirect mode takes 6 cycles 


(Some timings depend on exactly what happens during an instruction, 
as explained in two of the footnotes to the instruction set table). 


If you look at the Zero Page column you will see that, for any given 
instruction, the Zero Page timings are 1 cycle shorter than the absolute 
mode column timings i.e. it is always quicker to address Zero Page than 
a 16-bit address. 


These timings can be used for two purposes: 


(a) to design programs that take a precise period of time e.g for 
timers, delays and to synchronise one computer with another. 


(b) to compare one method of programming a routine with another 
in order to determine which is fastest. 


Here are two examples of how you can use the timings to calculate the 
time a program will take to run. 


Example 1 
The program for adding two two-byte numbers was given in Program 
2.7: 


LDA &70 
CLC 

ADC &72 
STA &74 
LDA &71 
ADC &73 
STA &75 
RTS 


254 


We can now write down how many cycles each instruction will take: 


LDA &70 
CLC 

ADC &72 
STA &74 
LDA &71 
ADC &73 
STA &75 
RTS 


TOTAL 


Dwwuawwnhd w 


26 cycles 


(Zero page mode) 


(Zero page mode) 
(Zero page mode} 
(Zero page mode) 
(Zero page mode) 
(Zero page mode) 


So, addition of two-byte numbers takes 13 microseconds provided we 
use Zero Page. Or, put another way, we can do 76,923 two-byte 


additions in 1 second. 


Example 2 


Program 4.2 involved a branch. Because we have a loop, some 
instructions are executed more than once. We have therefore to 
consider (a) how long each instruction takes and (b) how many times 
each instruction is executed. One of the instructions (BNE) takes 3 or 4 
cycles depending on whether or not the branch is to the same page. 
Unless your timings are very critical, it’s safe to assume that the branch 
will be to the same page. So the program and its timings are: 


LDY #0 

STA (&80),Y 
INY 

STA (&80),Y 
cPY #0 

BNE next 
RTS 


Cycles 


DOwnoan mm 


1 
1 
255 
255 
255 
255 
1 


TOTAL 


Times executed Totals 


8 


3315 


6 
3329 


This shows that one page of memory can be cleared in 1664.5 
microseconds, a rate of 600 pages per second. 
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APPENDIX 3 
Further reading 


Cott, J. The BBC Microcomputer User Guide ed. by David Allen, BBC, 
1982. 

The most useful sections for this course are: 

39 Indirection operators; 40 HIMEM, LOMEM, TOP and PAGE: 
42 *FX calls and OSBYTE calls; 43 Assembly language; Appendix: 
Memory maps; Appendix: Memory map assignments 


LEVENTHAL, L.A. and Savitte, W. 6502 Assembly Language Sub- 
routines Osborne/McGraw-Hill, 1982. 

Contains a useful reference section on 6502 programming techniques. 
But the bulk of the book is 40 standard routines which can be used in 
your programs. 


Ruston, J. The BBC Micro Revealed Interface, 1982. 

Contains some material on how the BBC Micro stores its variables. At 
the time of its writing, however, Operating System 0.1 was the only 
available Operating System. 


Zaks, R. Programming the 6502 3rd rev.ed. Sybex, U.S. 1981. 
Chapter 4 which summarises the 6502 instruction set (100 pages of it!) 
is the best reference work to have at your side when writing programs. 


Zaks, R. 6502 Applications Book Sybex, U.S. 1981. 
Zaks, R. 6502 Games Sybex, U.S. 1981. 
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» solve problems. 








Beyond 


Beyond Basic has been written to provide an easy introduction to 
assembly language on the British Broadcasting Corporation 
Microcomputer. The book incorporates a number of special 
features to help you get started with assembly language 
programming: 





{_| The book is built around practical programming problems — often 
taking tasks you can do in BASIC and asking ‘How can we do that 
in assembly language?’ 


{_] The 6502 instructions are introduced as they are needed to 


(_] Each step is illustrated by fully worked examples. 


{_] As you work through the book, you are given plenty of 
opportunity to check your progress with self-assessment questions. 
Complete answers are given to all these questions. 


{_] A cassette tape of all the main programs is also available. 


The book will teach you how to use most of the 6502 instruction set 
and how to write programs to: perform arithmetic calculations, use 
loops and decisions, create lists and tables and perform complex 
operations on BASIC variables (e.g. sorting a BASIC array). The 
book also deals in detail with how to access the British 
Broadcasting Corporation Microcomputer operating system and 
includes assembly language routines for graphics and sound. 





